TT/uDT.k

\l vSS.k

// uDT.k -> Decision Table
uDTr: (
 (1 0 1);
 (0 1 0N);
 (1 0N 0);
 (0 0N 1)
);
uDTR1: {[e;args] selection:e[1]; stock:args[0]; :"dispense"; vSS[selection;]}

uDT: {[e;args]};