( ">89;7<6;82" )
nip
m:
    show
    extract-array
    39
    swap
    10