: i 1+ ; : d DUP 0<> + ; : s DUP DUP 16 = 1+ * * ; : o DUP 0 .R CR ; 0 STDIN INCLUDE-FILE