%%HP: T(1)A(R)F(.); DIR DIV2C « DUP2 / 0 RND DUP 4 ROLLD * - » GCDC « WHILE DUP ABS REPEAT DUP2 / 0 RND OVER * ROT - END DROP » BEZOUT « IF DUP ABS THEN DUP2 / 0 RND SWAP ROT OVER 4 PICK * - BEZOUT SWAP OVER 5 ROLL * - ELSE DROP 1 0 END » DIV2P « CLLCD "A: " 3 PICK ¨STR + 3 DISP "B: " OVER ¨STR + 6 DISP DUP TAIL SWAP HEAD { } 1 5 PICK SIZE 5 PICK SIZE - START 4 ROLL DUP TAIL SWAP HEAD 4 PICK / ROT OVER + "Q: " OVER ¨STR + 7 DISP ROT ROT 5 PICK * OVER SIZE OVER SIZE - WHILE DUP REPEAT 1 - SWAP 0 + SWAP END DROP - "R: " OVER ¨STR + 5 DISP 4 ROLLD 0 WAIT DROP NEXT 4 ROLLD DROP2 WHILE DUP IF SIZE 1 > THEN DUP HEAD 0 SAME ELSE 0 END REPEAT TAIL END » END