calc:@[_n;`a`b`c`d`n0`n1`n2`n3`n4`n5`n6`n7`n8`n9`lp`rp`fa`fs`fm`fd`fe`fx;:[;"exp,:(~_v)`l"]] calc[.;`l]:"abcd0123456789()+-*%: " calc.eval:"err:\"\";:[*t:@[.:;(`space;exp);:];err:t 1;exp:5:t 1];" calc.clear:"exp:\"\"" calc[.;`c]:`button \d calc space:.();exp:err:"";exp..l:err..l:`;err..e:0 \d ~ l:"a vector calculator in k" a:(`exp `err `fe`fx `a`b`c`d `n0`n1`n2`n3 `n4`n5`n6`n7 `n8`n9`lp`rp `fa`fs`fm`fd `eval`clear) \d ^ `show$`calc