Function m($b)

 dim $,$a

 for $ = 1 to 16
  $a = split("- . : .: :: " + $m)
  $m = $m + "| " + $a[$]
 next

 for each $ in split($b)
  $m = ascan($a,$) + 20 * $m
  if $m<0
   $m = $a[$ mod 20]
   $ = $b/20
   if $
    $m = m($) + " " + $m
  ;endif
 ;endif
;next

EndFunction