k 174

Code:

Function m($a)

dim $,$b,$c

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

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

EndFunction