((rec(f n k)((^'b(format(= k 0)"~va"n"
")'b(f(+ n k)(abs(-(div 32 b)k))))write-byte(read-byte)))0 1)