[begin] pad dup 11 stdin read-line * + evaluate -rot dup 3 < dup -11 * d+ 13 * 8 + 5 / over 4 / dup 25 / dup 4 / - - + + + 7 mod 0 .r cr [again]