:+-*%&|<>=~!@?#_^,.$ (+-*%~_ &|<>=^? #! @,) 12+8atomic 8+12list 20math 10gen 10+10aggr 10'10/10\ T[A;B;C] f' f/ f\ ..
+   - *   %    &and |or <   >    =    ~   !   @     ?inv      #take _drop ^cut      ,$. log exp in min max sum avg var dev.. [:~]'map/over\scan [012]'/\
abs - sqr sqrt flip rev asc desc freq not int first uniq/rand count floor sort/grid ,$. log exp in min max sum avg var dev.. [!.]'map/over\scan [012]'/\
while if else case select[count in first last min max sum avg var dev ..]by from where.. T[A;B;C]  (&|<>=)matrix `lxyz.[@?] [0123..]'%[#SR[SE-M]]
core util(`cjp..) math ipc ..

k-torch n[012..] sigmoid(a*x%1+E-x) softmax(x%Sx:Ex-Mx) Rms(x%%G*x) vh'k
fwd(24M/18)[6 18 288 288] f::x+g@fyEey:Rx+:d(vi,:cy)(z*by)'ki,:(z:1e-4^#ki)*ay:Rx
gen(37M/19)[   32000 288] g::x?Mx:a@bf/ax
tcn(.6M/16)[13 50 192 64] a+0|b?d^0|c?d^x

mathematics from 60000BC
5,1 3 5(*,%)3       /diatonic     3^-!4       cello       divje babe -60000 flute 
s:1/                /quicksort    s rand 16                     uruk  -4400 divide&impera
q:avg/1>abs         /quadrant     q grid 96                   thebes  -3200 log -1(`z?1)
a:+\|               /fibonacci    a 2 3       pingala         ujjain   -300
b:!\|               /gcdivisor    b 6 4       euclid      alexandria   -300
p::(+x*)/1 2 3      /polynomial   p rand 16   al-khwarizmi   baghdad    820
r::(-x*)/1 3 5      /taylorseries q rand 16   madhava         kerala   1390 arc cos sin
e::x log x%sum x    /entropy      e freq kj   napier         louvain   1572 ratio zeno
f:(+,-!)0/          /fft          f rand 16   gauss        brunswick   1805 divide&impera
w:(k log)w/         /wordle       w 2315      boltzmann         graz   1872 divide&impera
m::2>abs(x+sqr)/x   /mandelbrot   m grid 96   fatou&julia      paris   1915 

rosetta punc  infix               prefix              postfix
k       ()[;] :+-*%&|<>=~@? ^#_,  +-*%~_&|<>=^? !#@,  f'/\             2024
apl     ()[;] :+-*%^v<>=~ I  TD,  +-  ~_&|UD    IR ,  f'/\             1964
python3 ()[,] =+-*/&|<>ZZ w [:]a  a-ss~_tra  su as ,  [f(x)for x in x] 2008
 numpy.[where append][floor abs square sqrt][transpose reverse argsort arange unique sort size]

parse(file;line;char)
"+'[(0a"/"(+2)*'+/m[1;2]" a:+2;a*'+/m12[301020200'*+2/+m12]

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