v
\ {"+":[01],"-":[01],"*":[02],"/":[02],"^":[13]} "prec" =
\ {"+":[+],"-":[-],"*":[*],"/":[%],"^":[J]} "func" =
\ ["prec"`~F~$~$]kKp ["prec"`~F$~$]kKa [dnNEQ]kKn [2@dHNE~$]kKh
\ 0b "queue" = 0b "stack" =
v =q@"queue"&~ <j*44 <
>>:c=Knv
> "> "oiSBq > l0E!v_Kn|^+~c. _ .cn "queue"` ^
>d" "E?v$>"stack"`V?v$"stack"`~&"stack"=^
^ $$< > :2= :1= .1Kp .2Kp .1Ka [Y][y]2b~H~$ g ?v$"stack"`.1&"stack"=