:;standalone:_source_on_Q,_binary_on_G
4000 a.q !
:m.rd ? m.ch z 0 a.q @ ! m.go j
:m.ch , a.q @ ! a.q @ 1 + a.q ! m.rd j
:m.go 4000 a.src ! 40000 a.dst ! 0 a.org ! 50000 a.lab ! a.run c 0 a.j !
:m.out a.j @ a.n @ < m.end z
 40000 a.j @ + @ 0 $ . 0 $ 8 > . 0 $ 16 > . 24 > .
 a.j @ 1 + a.j ! m.out j
:m.end q