read
$_ a
for x in $a
{
'x?x=d%(d=x),_:0'
$[_]
}
for x in $a
{
printf $s$[x/d]
s=:
}