Delphi & Pascal (esk wiki)
-V J @ - #)" ;;;;) ))*L)))/ .</?))/ '''>;)''''' E+ ''''''''''#3-''''''' ''''' L 1#';''''''''''' 8 * '' 'ju[[[ul [u;[;;l ;;'''''D'#''=[ [u[[uuu;;;;;[);''''''' =''';uu[u[[;;;'';''';==);''''B'"uuuuuu[[;;'';));))llljlj;j;'''''+%''''uuuuuu'';;';;')%') cEjjjl'''''?. 'uuuu;';';))))%%bbEcEcEl''';'-' ''uuuuuu''[ [ [l;;%;))%;)))jEEkkEkEEccEll;';';((''[uuuuu'';'';)';));))%%)EEcEkkEcEEccEc ll;''''';''./ ';uu'''';'';)')%)%))jjjEjEkEcEccEccEEcEj l);'';'' '.''l[u;'';';';'));)))%))00kkEcEEjEkEkEEc+c&c+cEE l'';'*)''[u;';;';';;));)';%)%)%)%)j))00kkEccE0ccEccE20k2k+c+c+c+c&++c+cEEj;';;''$'''uu;'';';;';');%;)%))%)kcc0))000k0E2E0kE++Ek20k&2+c+c+c++c&+&cEj%%;';''-' +;u ;;;;;;';;';')'';%)%)%cc0%0))0kk00kcck2+c+2&2+>>c+c+c+EE&El)%%;';' #)''';uuu';'';;;');;))k)kkE 0EE&2E22&2&2++4++c+c+c+c+E)%')';;'2"';uuuu;';;););))%;)j)EcE0)%0Ej00k0k0cE&+&&++c+&+>++4+4>+44>+&EccE%);;'.'''uuuuuu;';;;;);););)j00kE0jEE0Ec&E+>4+,4,G4,4G4,G,,4+&E+cEcj)%));';' 1 uuuu;''';););));)0k0kE00EcEE&E&&+>4,>4,4,,4>+,,GC,,CGC,4,4,,4+4++,4++Ecj)%%)'';' 1 '''''uu;u'';;);)0j0jk00k0k0EE&&E&E&+&+4,,4,,C,,4,44>4,C,CC,,CCGCCG,,>+>+4+EcE%);;';1 'uuu';';==)))00k0k0k0k0E&k&EE+E+E&+&+,4,4C,,GC,4,CGC,4,++4>>4>+cck)%);'';3 '''uuu;;;;=l==))jj))0kEEcE&E&+&++&++4,4,4,,C,4,C,C-OOC,4>cE)%%));';' -uuuuuu;;;;)=j=j)0))00k0k00&E+&&E+&+&++4,C,,C,COC,4,4COOCC-CCC,>,,+E%%)%;;; 4''uuuu;;;)===jjjjkjk0kjk00k0k2k2&+E&E&++44,C4COC4C,C,CC-OO-CO-C-OOC,C,,++,+k)%)%);'' 8''uuu';'';;;===j)0kkEk0k00k0k00k2k2E&E&E&+&44,C,C,COCOCOOCOCO-O-OOCOOC-O-CCGC,,4>++E)%)%);9'uuuuu;uu';;;;[=))jkkk0k0k0kk2020+&&+4&&+4++,4,C5COCCOCOCOCO557O-OOCO-CCGCCG4+>4E)%)%;;'6''uuuuu'';;'';;==j=jk00000k0k0k2&&2&++44,4,4,4,44CC5(/OCC O-O*//5OO5OCOC//5GCCGG4>++k%%)';;: ''uuuu;u;;;;';);)=jjk0k0EkE&&E&+4,445C5C5/C55/5O7O77O7O7//(/*5OOC((5C,,+0);;9'''u ;;;;';);jj)0jkk0k0kk0k&EE+&+&4,,C5/5/5//55O5**OO77O7O733/3/3**/*//*O-OC51(4G4,4,++>>E0);;'F'uu;;;';;';);))j0j0k0kk0k2kE&&E&+&+,4,C5*5*55*O77O*/**77 O7*3(//3/(/*O-OC/(4,,C,4+,4,E0)%); (''''uu;;;;;;;););))=jjjjkE0kEkk2kk&+E&&++4,44,,C5*5*5*OO7O7@*7O5*//**@*@3/*/77O-OO//C,C,,4,+0);; Fuuu';;';;;;;;)=jkkkkk2Ek22&+&+&+,,CC5O*55*O5*/*@77*@*/@7/3/@7@@7O5/5CC,4>+>k%);;/ '''uuu; ;;)=jjjkk0kE&2&E&E&&+&++C+4,5O*5*5*5**3*/3**3@@3@(3@@7@@7@7@.@7-OO5(CC,,CC4+4>k0);;' 6''uuuu;;;;;;;;;))jkkk0k&0kEk&22&&+5+4++,C+5*55**/*3/**3@@3@33**@<377@@7@77@.7O77/(C,,>4+E0);;;''uu;;;;);)j)jk0k0kE2&E2&++4,4C+4C5//5/**/*/5*3** @33/3@@AA@33/7@7@77@7O7O*(/COCC,,4>>4E)0));4''u;uu;;; ;););)))0k0k0k0k02kEk2&2&+445/55*O7*@7@@77 @33@3@FA3*7@.@.@7@77O-OO(5OO-CC,,4>+k));; 6''uuuuu;;;;;)));=)=s))j00kk0kkE2k2k0k2&45CO77O7O7O7@7@AA@A@<AA@<3@3@.@7@*3@7@7OCOC,4>+2)0));;@;'uuu;;;;;;;;;)))j)jkkk2k2k&2&45COCCO7O7A7.@<@@<@@<AA<A<33@<@3@7@7@7OC,4Ej));;5'';uuuuu;u;;;;;;==[))=)==j)jjjk0k0k0k&2k2&&4,CCGCOOC-O7-7-7-7A-V-@AF@A<<A<A<A<A<<3<<A@3@3@7O-OCOC4,+&j00));,''uuu;;;;;;u;u;;;;[[)[=)jjjjkjkEk2E2E&&45+,CCOO--O-7V7.A-VF@.BAA<<A<3<3<@@3*3@.@@7O7OC,+E0j));;0'''uuuuuu;;[[;u;[[;=[=[====jj0Ek2E2E2k&,C,CCCCO-O-O77.V.VV.AVAVA<<AA<3<3<<3@@.@@7OO7OCGC4>E00);;9''uuuu;;u;u[;;u;;;[[=[=)==jjjkj0kE&Ek&,GC-OO--O.7.7.V.VFFVFBA<A<BA<<3M33<3<@A@7OO-O-OCGCC,4+E0j)j);;*'''uuuu;u;;u;;[[=[=[==[=j=jjkjkjk2kk&k&&5+,,CC--O-7.7V.VF.FFBFVVFBBDFBDBBAA<ABABABA<<33<3<3<@F@7@@77O7-OCOCC,CC,++E00= 9;''uu;;;;;[;[u[;[[[[=[=[=[=j=j=jljjkEk&++,C--.V..V..WVVF8FDF8D8DDBBDBABA<AA@<@A@@7@7O-OO-C,4,+kk0j=;6 ;'uuu;uu;u;;[;[[[l[=[l=ll=l=jljjjjkkk2&E&&E,&,G,-.7..F.WF.FF.FFBFFW8D8DDBDBABA@.A@@.@7-OOC,4>+k0jj;1'uu;;;;u;u;u;u;u[;[[[ll[====l=ljjkE&+,C--.V.FVWFFWFFW8F8FD8XXD8D8X88DBDBABA@@AA.@A@F@.@F@@*@7-7--C,,++kjj=''0;;;u;u;uu;;u;u;u;[[[=l[ljljjjjjEkEkkE&&E++>G>,GC-.F. F8F8F8FX88W88XD8DBDDBDBABA@<A.@7@@A@AA@7OO-CC,4>Ekkj=;;/'';'u;u;;;u;u[uu;[[=l[lllllj jjjkkjEk&E&&>,GG-.W.F.FF\FF8FF8F8F`8X8X8X88`XD8DDBBD BAFA33A@@.@@77@FFAA@@7.77-COCG,+kj;'0;;u;u;[;;u[[[[llllj jljjjjEkjEkEkEE&c>,>,G,CC-7.FF.F8F8F8L8XX8`8I`8DBABABABA33A@7@7@AF@A@@7.7O-O-CC,++k=; 0;;;;u;;;uu;uu[;uu;[[[[[l[llll jjjEjkEkEkE&E+>c>>,v,,G,-.F.FLF8`8`8``II`II`X86DBDBA^3A@7@.@-7.O-O-CCG4Ek=;/;;;uuuu;uuu;uu[[[l[[l[ll[llljljljjE&E+c>,,G,CC--.F.F8L89L9Q9I9I8I88X8XDD8DDBDBBDBABABABAUMN<M^M<A@7A-@7O--C,G+Ekkj=)'';u;;;;;;uu[[[[[l[[l[llj jjjEjcEc+c>++>,,GGC-.F}FL8FF88LL`LQL9Q`Q9I``XXD BAABIoI-^M<@7@--@*@@7OO,,+EEk=;+'';;uuu;u;uuuu[uu[[[l[llll[llljj jjjkEE>cc>c>+>,GCC-.F8L8L8L9`Q`Q9QI`88X688D8D6DBDDBDDBAZ6Jo:^^@A-A@7*@7**O55OG,+Ekkj=),;';u;;;u;[u[[[[l[l[ll=lllljjljjEcc>++>>+>,G,,-O.FF\F88L99LQLQI`I8XDD8D6D6BAAB9O<A@AA-A*7-7*5CC,+EEkj=;2;'';u;[[[[uuu[[[[[l[[=[=[=ljlj ljjEkEEc+cc>+>,,C-7.F..F88L8L89LQI9I8I8X8DD8D66B> - ^<@A-7A-7*5*55,Ekk==+;;;uu;;;;;u;u;uu[[[[[[[[[[ll=llljljljjjEEc++c>c+>>,GCC-.FLFL9QR9`9`InIX8X6D8D6D6DD67 G8:OM@@.@A-A-7-77**5,,+kj;;,;;;u;uu;u;u;u;u[[[[[[==l[=[=lljj jjjEc+c>+>+>>,GGC,--..V.F.FL8L8L9QRI9XnDWFWnm8XX6D86DAB* FYmQ M@@.AA@-AA-.O*55/45>Ekkj ;''''u;;;u'u;;;u;u;u;u[u[[[[[[[[=[=l=l jjEcEcEc+c+c>+>,CC-O-7.FF.F8L8LL9I9QQRF"GWm8X8DXFAB6k =QPnʿv>c <@A-A77*544&+kkjj=);#''u;u;;u;uuu[u[[[[[[[[=[[=[l[ll=lljj jjEcEEc+c>+c>++>,,GCC-.-7.V..WFFLFF8Q9RI:RZnX86ABBk ,R`8;lu~Zmm^7.77@.@77@-75/5/442+kj;.''';;u;;u;;u;u[u[[[[[[[[[[=[=[==l==lljlljj jjcEEcEEcc++c+c++,+,,CO-O-O.7W-VV.WFFLL8->GCSԷZnX6BA CSVȠ pVooS .3::A7@-@75/*/4&c0k);%;;;;;;u;;u;;;uu;u;u[u[[[[[[[[=[[=[l=[l=[lll=j jjjEc&c+c,+,CCC-O-7.7.F8Fbc u$կZnZOu +Qvvpp_YT į^IYYW7@7OO7*//5/424+E0k=);%;';[u;u;[;[;u;[;[[[[[[[[[[[=[=[==[l=ljlljljbEkE&c+E++&++,C-O-O.7V.V.WFC[E+.7q\կN5 kR[FoǠ}F^IJmY7@.@77O-7//5/5442&ckj);;;'';uuu;;;;;;[[[[[[[[[[[;[[[[===[=ljljjjjkbEkEcE+E&c+&,,C,CCO-O..7.-O77 +nPPoY`FCv9ڿFWg83IJom<@7-O7/*5//42&k0j);;+';'u;u[[;;u;uu;;u;[[[u[[;[;[;[[[[=[=[[==llljljjjkbkEEkEE&E&E&&++,CO-OO.O-O.C8oKQj Cfv5_U@5:Yo9MA@7O77*/224+k0j);;('';;[;[;;;;;;u;;uu[[[[[[[;[;[[[=[==ljjbjkbkE&E+&,&&,C--7OCC-XYPKՙQƸj)*6@:YoI^A@7OO(*/422&Ekj);&;;';[u;;u;[;;;u;u;uu;u;;u[[[[[[;[;[[[[=;[;[=[==[=jj jjjkkEkE&EE&c&&+&,CCC-O7-O,,.FYPRs~ܯ+*OVW8YYm8UA@7/*/*5//42+0j);;#;;u[;;uu;u;;u;;;u;u[u;;uu[;[;u;u;[;[;[[;=[[===[=jljjEEkE+E&+&,,CO.Cj+X:oQԤ}ƙj;@_ZIXW`JJmoNUA.@.@7@//*/5544&&c0j));;);;u[[;;;;u;;[[;u;;u;u;u;u;u;;;;[;[;=[[;==[=ljljjEkE&E&c+&,C-OCkj.YY: }-\vؖ=u 4XXDXDDIYooYMVA-@*33/*/442&kk));uu;u;[[[uu;[;[;[[u;u;;u;[;u;u;[;[;;;[;[=[[=;=[)=ljljjjEEkEEkE&E&++,+,,CCEj-LYFwqszs)4VXmIXXQYoomAU.AA@7@*/35/*/54422E0k)); -';;;u[[;;;;;[[u;[[;;u;uu;;u;;[;u;;;[;[==[[)===lljjjkjEkEkEEkE&E&,CCE cQQI ٔ;C^_nmnmmY^<A@33/*5*55422&E));;!'';;u[u;[u[u;u;u;;;[;u;uu;uu[;u;;u;;[[;;;;[=;=[=;=)=)ljjjjEjEkEkEkEk&E&&E&,kj ;,QLwl ;b F`LLNU<<@<AA<@@3/*5442kE0j));";;;[[u[;;;uu;u;;u;u;;u;u;;;;;=;=)==)[==j jjkjEjkEkkEkkE&&E&k; E}$L ?շ ~_UBA33<<@@A@3*O5C422k));;;;5'uu;;;u[;[[ u=kE= ;;u;;;;;;[;==))==ljjjEkjEkE&Ekjk\.. 'u[; Ls NMA3<<AA@.@*@@7*O54&0&k)));;;3;''[u[u[u[u;u;;[ =7FQJaaKKaaRQII`F[ ;;;;;;;;;;;;[)[;=;));;jjjEkkjkju&ϸO*4u;[[ g c~__BA@F@7*OOCC440kj);;+;';;uu[[uu[uu EIKKaQ8.8:YY:Q9JJY ;;;;;;;[;;kOCcj;;-!E)jjkj;k罌//**u[;&"ԾH \~Ė__ZDWBFBA.@.AA.@7@7O5CC4&&E0);;+;;[[[u[u[uu b.:KQ. >.8L9J$>;;u;;;[;;;;;;;kCF:KKaSRL-C++L?fHjk;>뷇4(OO*j[u,~k CUZ6DWBBAAV@A@AA@FAA@7@7@77O554&2Ek);;,';;'= l[uuuu; [`K8 -:IIJ!;;;;;;;&QSSJLG.8SSrTQwk)u;>σ4((55OO&u; Ov' l|q~=sVn6DWBBVAAV-AAFAA@A.A@7OO554&&Ek);;;);''=[[u[uuuCTFFTYJ;;;;;;;;;;jFa:LGGFR:\闎u;=ϗ14(,/5/OO՜s; }lukDZDDWBAFABA.@FA@@77@7C4C4&2&k);(';'=[uu,.v.aY;;;;;;;;; 2FQv;C544,4/5; =-FQus[; =cbb=[u;4<n6BBABABA@AFA-@77O5C44&Ek);(';;luuu. SJb;;;;;;; OJR ͗,/C4//&-:QQ7 k[u s5WZX6WFDV A@@FA@.AA@@7O55CC4+2EE);;*';l;uuu=v S][;;;;;; )FJ ̜v;G14/&2&/*AF:RL``L+s ;=k*ZZD6DBB A@.@FA@7OO5O5C4&2&E);;;$';';l;uuulv ̶ ;;;;;;;' &JRv ̎z ̮;뤦122(22OVFRRRLX:LqZCE&Ekk&k,7VWND6DWDWDBFA@A-@*@-7*5*O5CC44&E2k);';;ju= 魚 ;;;;; &aL ̤ GzTR99QRRTRRQL\nX6X6ZWBWDD8DWDWWBWBFBBABA.@@A.AA@ATaa!O//55C44&2Ek0);;(;'=uu=쮤zGvGGf ;;;[;u-:. vw̕l TSaaSST:RRL $NWBWWD8D88DWDWBBWBWBBA@AA.@A@@LTa]"8-/O4&&kk)););;;,';=j;u;= ; u';;;u;[; ,R} v G\[ Ïd#_DFVWW8D86DWWFDBBWBVVFA@AA@@78T?籧tC5C4+&k);;,''';==uu;͜CVF[;;;c ;;;;;;&L c\̒vk q}FD8D8D8DDZDDWDWDWWDBBVFVA@@*7@F!r領55,442&Ek);%;;;j=uu\FP:#;[u[) ꠏ;u;u;;jq bEv̝'; ٿC\LX8DWWBWBWDWBWBWBWBVVA-A@F-*57A$f]C(C44&k));.''';;u#"FR uu;u;= ;;;.\v ͌' jٵFӿnDWDFWWBVBVABBVBVVAA@A@@A@8]dA7\G]r(5C,4+&&Ek);;/'';kuuG>u;;u;j ; C$ >̠c;+gݽ椠u=`LZF8WDFWBVBBVBA@A@@*5-L]edK//CC4,4&k0));;+;';uuuu 'u;+ ꩿ;;;;: k#͔]?9T jvkkYuDWFWWFBFA@A@@A@7@@*7BF#d?| KC(5CC44++&&Ej));!;;'kjuu;u"u;;;v 줻;u;;;; ,T )\̝"TQ vu)(<F:\vc$WWFWFVBVBVBA@A@AL?i?{e]O(5CC44,4&&EEk)); ;''kluuu̍#"qb ;u;+ [;;;;;F\ )} lluuH00*X:RL}FWҭU<VVAV-VAAVA@A@Az((C5C54,4++E&Ek));$;''k u;$ ;'F 擞;;;;;T 铩-\ ̡ Ev %0/V::QLQ`` FMAA7V A @AA] -|1(/54&Ekj);;%;'')El[[uuu L[;;u;+a )\̠ b[ %jOV`IRTRQIQG}3*77A7@7A7AA@A@@7@7@@A4C [ k)%1(2445C44++&E&EEjj);%;';;Ej [uuu l] I\ 뇖;;;; .R [).. ̷??F,l);;k5*F9YJSRTQ\$3*7@*77A@7A7@FRS7@+[j %%((2(55C4&2k);';;;;E0 u[uuuu b;`Q;u;;;;-\訤 j.G͞ $?h?T:T:STRR:I9FG#3**7**7@7@@F9:Sz4ul#[ 4;;%2//(/4,4+&k=);;;/;';Ek[uuu fKvl;u;;;; 7 C\v ͮ̕Q?SSTYIL ѯ$*7*O*@7**77@L.] c //;;254+&2&&k);&;;''kk [[uuuuu[IQK. ͝;;;u;;; O F\> \ .8Gѯ.*/OO*7O**7@*@L s*5 0/54&&2kj=));;&;;;'E0[uuu\LR-\qF-+= ;;;' ,#-\v#> 鴖 f е7/O5OO7O7O**O@.**3Fg|]G wv255O) 2/4&&k&E&kE=;%;;;0k[uuuuu-F9RJJaJ8-k ; &R~ TL.c v ' $ c *O*O**F?]C+| *O55O5;;455//4454+&k2k2Ek));;";;0E [[uuuu;.\.F.--.FL::QF,kjL\v ٝ ͣ |CO/55C5O5-?iGe .*5C5&5/44/4&22&&Ek=;;);;$;;;'kk [uuu[vG8`8L}9::LEF\c z>