(%taeper}[{tnuoc[14 llarof}[pud{hcxe[04 04 fed}tnirp tup llor 3 4 0 pud>0<{>b5<)<5b>{<0>dup 0 4 3 roll put print}def 40 40[exch{dup[}forall 41[count{[}repeat%(