This is 167

This one I am submitting on behalf of me, Rogier and Benny ... especially Benny because he found the reduction ...

Code:

Function m($)

if $=0+$
do
;$a = $ mod 20
$m = trim(iif($ mod 20,left('.',$ mod 5 mod 2)+left('::',$ mod 5/2)+left('|||',$ mod 20/5),'-')+' '+$m)
$ = $ / 20
until $ = 0
else
$m=-1
do
$m=$m+1
until $=m($m)
EndFunction