$wget shakti.com/edu/k.zip;unzip k;make # linux/avx512 while if else .. select by from where .. in .. +-*% &and |or < > = ~ . ! @ ?ind ^cut #take _drop , F'/\ ,A(.!~+-*%&|<>=@?) L(^#_) +-*sqrt flip rev asc desc freq ~ value key first uniq sort count floor , f'/\ ,A(.!~+-*%_) L(&|^<>?=#@) LMSA(min max sum avg..) ERZ(exp rms/log zig/zmx) rand rule grid 'map/reduce\scan k-torch Rms(a*x%%1e-5+A*x) Zigmoid(a*x%1+E-x) Zoftmax(x%Sx:Ex-Mx) abc::.` fwd(24M/14)[6 14 288 288] f::x+i@hwZgw:fRx+:e(lz,:dw)S6Z'(kz,:!cw)*6.9?!bw:aRx gen(37M/18)[ 32000 288] (@>a@bRcf/a@)\0 tcn(.6M/16)[13 50 192 64] a+0|b?d^0|c?d^x mathematics from 4400BC s:1' /sort s rand 16 uruk -4400 divide&impera q:avg/1>abs /quadrant p grid 96 thebes -3200 pi(abs log -1) a:(+\|)\ /fibonacci f 0 1 pingala ujjain -300 g:(!\|)/ /gcd g 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 sincos e::x log x%+/x /entropy e freq kj napier louvain 1572 ratio zeno f:{(a+x),a-x:.x}/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+*)/x /mandelbrot m grid 96 fatou&julia paris 1915 rosetta infix prefix post example(mode) k :()[;]{:} +-*%!&|<>=~e@?#_^, ~-*%_e&|^<>?=@,#!!. '/\ m:first desc freq k/1992 :()[;] +-*%!&|<>= ^@?#__, ~- _e+| <>?=*,#! '/\ m::x i d?|/d:(1_i,#x)-i:!~='x@:=~* !|| , ~- _*&| || ,#! /\ m::x[i[d?|/d:(1_i,#x)-i:(~x=-1_-1,x)/!#x:x[DD^[w a] ~-[sfetfsa uc] lrkv[len range keys values] numpy.[where append][exp sqrt floor transpose reverse sort argsort unique collections.counter]