: A 10 MOD 3 - * ; : X 301 1 DO I 3 MOD I A I 10 / A IF I 0 .R ELSE ." aho"THEN CR LOOP ; X