•ktye/k  run  src  intro  apl360  pdp11
         tokenize halfkey  xk  fem flowthe k incunabulum                  a/c

•zoo of array languages APL\360 ngn/apl
         APL\iv  BQN   KAP  incunabulum
	 APL\?  j4.2 jstack  oK ktye/k2
	 ktye/k.w  klong  ngn/k  k7  k9
	 ktye/k                     lilj stack languageedit
ktye/k   ktye.github.io/k.html
+ flp add  '  ech pri both bin
- neg sub  /  ovr fix echright
* fst mul  \  scn fix eachleft
% sqr div      / join   decode
! til key  mod \ split  encode
& wer min  $[a;b;...]     cond
| rev max  while[c;a;b;d;e;..]
< asc les  f:{x+y}   [bl;o;ck]
> dsc mor            "chars" c
= grp eql  01234567   1 2 3  i
~ not mtc   :+-*%&|  .4 5 6. f
, enl cat  <>=~!,^#   2a300  z
^ srt cut  _$?@.     (1;2 3) L
# cnt tak           `a`b!5 6 D
_ flr drp  t,d t,t t,'t   join
$ str cst           k!t    key
? unq fnd  in       k?t  group
@ typ atx  @[x;i;+;y]    amend
. val cal  .[x;i;+;y]    dmend
                              
abs sin cos exp log find angle
imag conj  types:cisfzLDTvcdlx
?n(uniform) ?-n(normal) ?z(bi)
n?n(with)   random   -n?n(w/o)
• jtye/k: k in fifty functions
+ type   add   ' each prior bin `js`
- neg    sub   / over right join dec
* sqr    mul   \ scan left split enc
% sqrt   div   inv idiv mod
& flip   min                  atom
| rev    max                  atomic
< up     less                  curry
> down   more                    rec
= freq   eql                       
~ not    match                      
. value        parse               
! til    dict  token key where
@ first  at    amend
? uniq   find  rand
^ sort   cut             while()[;;]
# count  take            if()[;;;;;]
_ floor  drop            do[]while()
, list   cat             for(;;)[;;]
$ string             try[]catch(e)[]