: q DUP 256 = 1+ * ; : i 1+ q ; : d 1- 0 MAX ; : s DUP * q ; : o DUP 0 .R CR ; 0 STDIN INCLUDE-FILE