(for i 0 104(prn:int(coerce i'string 2)3))