\d t ln:{1_'(&x="\n")_ x} C:ln" abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ . 0123456789 \" \\ -_~!@#$%^&*=+|<,>? '/ ()[]{} : `" / character classes Z:_ci 254 255 / nulls B:**C / blank A:C 1 / alpha D:C 2 / . N:C 3 / number M:*C 6 / - C[3],:Z / nulls are digits C,:,_ci(!256)_dvl 0,_ic,/C / ~ blanks V:"_a0.9NqxQryRsfFgGo1Op2PcC()" / states W:V?/:"_aNXsFGOPcC()" / endpoints T:ln" _af0qofo(cs_ _aaaqofo(cs_ Na.0qofo(cs_ Naf9qofo(cs_ Naf9qofo(cs_ Naf0qofo(cs_ qqqqQxqqqqqq qqqqqqqqqqqq _af0rofo(cs_ rrrrRyrrrrrr rrrrrrrrrrrr _af0qofo(cs_ _sssqsss(ss_ _ag0qogo(Fs_ _ag0qogo(gs_ _af0qofo(Gs_ _af0qofo(fs_ _a10qpfp(Os_ _af0qpfp(Os_ _af0qpfp(fs_ _a20qofo(Ps_ _af0qofo(Ps_ _af0qofo(fs_ _af0qofo(Cs_ _af0qofo(cs_ _af0qofo)cs_ _af0qofo(cs_" / states x classes fsm:{{.[x;(;y);:;z]}/[(#x)#,&256;_ic y;+x]} / finite state machine S:fsm[V?/:/:T]C / transition matrix oz:_ssr/[;Z;M,D] / - <- Z0, . <- Z1 zm:_ssr/[;(B,M),/:D,N;(B,*Z),/:D,N] / Z0n <- -n zd:_ssr/[;(B,D),/:N;(B;Z 1),/:N] / Z1n <- .n db:{:[#x;x _di&x[;0]=B,*|C;x]} / delete blank tokens ct:{(&~0=':W _binl y)_ x} / cut tokens tr:{ct[oz x]1_0 S\_ic x} / compute state transitions tokens:db tr zd zm B, / tokenize \d ^ tokens:t.tokens