Function m($)

 if $<$+0
  for each $ in split($)
   dim $a
   while m($a)<>$
    $a = $a + 1
   loop
   $m = $m * 20 + $a
  next
 else
  $m = iif($ mod 20,split(' . : .: ::')[$ mod 5],'-') + left('|||',$ mod 20/5)
  $=$/20
  if $
   $m = m($) + ' ' + $m
EndFunction