:;teach_the_resident_assembler_that_p_means_out
112 48009 @ 12 + !
:;each_backtick-separated_chunk_of_input_is_assembled_at_40000_and_called
:nx ? rd0 z q
:rd0 30000 ptr !
:rd ? ch z go j
:ch , 0 $ 96 - eos z ptr @ ! ptr @ 1 + ptr ! rd j
:eos _
:go 0 ptr @ ! 30000 48004 @ ! 40000 48005 @ ! 40000 48006 @ ! 41000 48007 @ ! 48002 c
 40000 c nx j
:ptr #0