wget shakti.com/edu/k.zip;unzip k;make

+- *   %    &and |or  <   >    =    ~   .     !   @     ?fnd ^cut #take _drop , $shape F'/\
+- sqr sqrt flip flop asc desc freq not value key first uniq sort count floor , string f'/\
select min max sum avg var dev med in .. by from where  rand rule grid  exp log cos sin tan .. while if else

k-torch tcn(.7) 16M 2 13 50 192 64 0|v+mxi
k-torch llm(61) 16M 2 16 6 288 288 x+y7@y8x*w%1+E-w:y6x:ry5x+:y4@,/(6^'vi,:y3w)Ss@S''6^'(ki,:qy2w)*mqy1w:ry0x

p::+x*                /polynomial p[2]1 2 3
e::x`l x:=x           /entropy    e value`kj / napier log[01][o0] 
o::avg/1>+x           /octant     o grid 960 / 1>abs quadrant(i.e. pi%4)
m::2>+(x+*)/x         /mandelbrot m grid 960 / 2>abs mandelbrot
s::1'                 /sort       s rand 256
f::{(x+y),x-y:.y}0'   /fft        f rand 256
w::{(#x)-in'm[;x]}m'  /wordle     w count m:12792 2315$..
c::{(2?x;1+3*x)2!x}\  /collatz    c 12  /euclid(|!\) fibonacci(|+\)

rosetta (k/apl since my dad and iverson: harvard 1950)      e.g. mode (first desc freq)
2024 k   '/\ +-*%&|<>=~ .! @? #_^,  monad~_+-*%. &| ^<>?= #! @,  @>=
1992 k2  '/\ +-*%&|<>=  .! @? #__,  monad~_ -    +|  <>?= #! *,  x i[@>-'(i:!~'x),#x:^x]
1960 apl  /\ +-*%^v<>=~  |  i /\ ,  monad~_.-..  &|  <>    !     x[i[d?|/d:(1_i,#x)-i:(~x=-1_-1,x)/!#x:x[<x]]]