Function m($)

 dim $a, $b, $c

 for $b = 1 to 15
  $c = split("- . : .: :: | " + $a)
  $a = $a + $c[$b] + "| "
 next

 if $=0+$
  $m = $c[$ mod 20]
  if $/20
   $m = m($/20) + " " + $m
  endif
 else
  $m=-1
  do $m=$m+1 until $=m($m)
EndFunction