+-*%&|<>=~!@?#_^,$. in '/\  (%divide &min |max ~not !mod ?find #take _drop ^cut $str f'each f/over f\scan) z(RENLMSU TABC)`lexy(+-*%~_.)
abs neg sqr sqrt flip reverse iasc idesc freq not where at uniq count floor asc desc enl str dot log exp sin cos tan ..
select count first last min max sum avg var dev .. by from where ..  while if else case .. rand int rule .. ones triu tril eye .. 
name([azAZ]+) sym(`[azAZ09.]*) int([09]+) float([09]+.[09]*[e[-][09]+]) date(2001.01.01) time(12:34[:56[.000[000[000]]]) 

mathematics from 4400BC (59000BC perfect diatonic scale 5,1 3 5(*,%)3)
s:1'                /sort         s rand 16   inanna            uruk  -4400 divide&c
q:avg/1>+           /quadrant     q grid 96   nefretiri       thebes  -3200 
a:+\|               /fibonacci    a 2 3       pingala         ujjain   -300
b:!\|               /gcdivisor    b 6 4       euclid      alexandria   -300
p::(+z*)/1 2 3      /polynomial   p rand 16   al-khwarizmi   baghdad    820
r::(-z*)/1 3 5      /taylorseries r rand 16   madhava         kerala   1390 cos sin arc
e::+/z*log z%+/z    /entropy      e freq kj   napier         louvain   1572 log exp
f:(+,-!)0'          /fft          f rand 16   gauss        brunswick   1805 divide&c
w:(k log)w'         /wordle       w 2315      boltzmann         graz   1872 divide&c
m::2>+(z+*)/z       /mandelbrot   m grid 96   fatou&julia      paris   1915

e:(+z*)/!! l:(+z*)/%1+! x:(-Z*)/!2*! y:z*(-Z*)/!1+2*! z:z*(-Z*)/%1+2*! 
ei x+iy  /euler   1748 good
i lx+iy  /cotes   1714 better 
e x+iyi  /madhava 1390 best