Function m($)

 dim $a

 if $=$+0
  $m = iif($ mod 20,split(' . : .: ::')[$ mod 5],'-') + left('|||',$ mod 20/5)
  $=$/20
  if $
   $m = m($) + ' ' + $m
  endif
 else
  for each $ in split($)
   $a = -1
   do
    $a=$a+1
   until m($a)=$
   $m = $m * 20 + $a
 ;next
;endif

EndFunction