Indeed. Does this inspire you to redo kona? :-)
From
kparc.com/k.txt:
Verb Adverb Noun(null list)
: gets self ' each|bn ': eachprior Bool 0b 011b
+ plus flip / over|sv /: eachright Char " " "ab"
- minus negate \ scan|vs \: eachleft Int 0N 2 23
* times first Flt 0n 2 .3
% div sqrt Sym ` ``ab
! mod|dct til|key
& min|and where System Verbs date 2032.03.01
| max|or reverse 0: write read(line) time 0T12:34:56
< less asc 1: write read(byte)
> more desc 2: sock open/close list (2;3.4;`c)
= equal group 3: http kson dict [a:2;b::a]
~ match not func {(+/x)%#x}
, join enlist view f::32+1.8*c
^ except null
# take|rsh count \l a.k load
_ drop|cut floor \t:n x time
$ cast|pad string $[c;t;f] \v variables
? find|rnd unique ?[x;y;z[;r]] \f functions
@ at type @[x;y;z[;r]] \w workspace
. eval dot .[x;y;z[;r]] \d directory
function parameters are x,y,z.
unary list needs ",", e.g. 2(atom) ,2(list)
unary verb needs ":", e.g. #'(take each) #:'(count each)
parse: E:E;e|e e:nve|te| t:n|v v:tA|V n:(E)|{E}|[E]|t[E]|N
overload: L!L !D .D i? i$ F$(+/*) S$(ss)
I like how Whitney is finetuning the language.