olq.fth

: P S" : P S ; P DROP 5 TYPE 34 EMIT 32 EMIT P TYPE 34 EMIT P SWAP 5 CHARS + SWAP 5 - TYPE" ; P DROP 5 TYPE 34 EMIT 32 EMIT P TYPE 34 EMIT P SWAP 5 CHARS + SWAP 5 - TYPE