s=
do 60
x=x2d(charin())
s=s||x%4||x//4
end
say translate(s,"0A"x"#. ",3210)