Function m($!)
 dim $,$b,$c

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

 for each $ in split($!)
  $m = $m * 20 + ascan($c,$)
  if $m<0
   $m = $c[$ mod 20]
   $ = $!/20
   if $
    $m = m($) + ' ' + $m
EndFunction