/ queue machine / http://www.latrobe.edu.au/philosophy/phimvt/misc/queue.html O:(-:;+;-;*;%) / list of operators V:1 2 2 2 2 / corresponding valences o:7=4:: / operator? v:V O? / valence of operator i:{x?1} / index of first 1 / if operands, rotate operands / else if too few operands, rotate operator and operands / else drop operator & operands, append operator . operands a:{:[m:i k:o'x;m!x;(m:i 1_ k)