STDIN INCLUDE-FILE [BEGIN] DUP 0 .R CR DUP 1- [IF] DUP 2 MOD [IF] 3 * 1+ [ELSE] 2/ [THEN] [AGAIN]