([while:pr(_:trunc:/(= i(read:+"#x"(readc)))4)(_:mod i 4)]" .#
")