by@__dAi00
AC
part "A" push 1 push 0 set push 2 push 1 set push 0 iint push 0 get push 8 part "B" push 1 sub swap copy push 10 mod push 2 get mul push 1 get add push 1 swap set push 2 get push 2 mul push 2 swap set push 10 div swap copy zero "C" goto "B" part "C" away away push 1 get push 2 push 0 set part "D" push 2 get push 1 add push 2 swap set copy zero "E" copy less "F" push 2 get sub goto "D" part "E" away push 1 oint goto "A" part "F" away push 0 oint goto "A"
00000011 00011100 01000010 01111000 00110000 01011100 00010101 10000001 10011110 01101100 11100110 11000101 00011011 11111101 01101001 00000100 10011001 11111101 11100001 10101010 00000001 00010000 10011010 00000110 00001010 00110111 11010010 10000111 10111110 00011111 00101101 00110110 10101100 01001110 10001000 10101011 00110010 10000000 01010100 00000000 11100111 00001111 01011011 10110101 01101001 10101000 00100100 01110011 00010100 10011000
11110010000001101100100111101010011100011110101000
whitespace: <stdin>: hGetLine: end of file