( "h\xe0\x91\nH(\x00" "kc$\x15\xb6H6@6J6H6J6HE\x15\x15\x15\x15\x15\x15\xb6F@1Tc\x0c#\x15J\xa8\xb6\xca\xb1ZE\xc6\xb5" )
    16
    divmod
m2
lines
zip
flatten
init
dup
    dup
    6
    !=
        8
        divmod
    f2
m5
    inc
    "+"
    times #(list)
    ">"
    dup
    rot
m6
swap
reverse
m:
    8
    divmod
    ( "+-.<>[]" )
    get
    itemize
    times #(list)
    @1