{valid.bra} Xobject= (donit=.) ( doit = D I M N Out SEC T W , Y Z a b d f g h i , id len loop n nlen obj pat , res s start t tag , text time var x xxx y z , errors K . ( Out = . put$("-->" !arg,"valid.txt",APP) & put$(\n,"valid.txt",APP) & ( @(str$!arg:? "(Acceptable)" ?) | out$(ERROR !arg) & !errors+1:?errors ) ) & 0:?errors & put$("valid.TXT\n","valid.txt",NEW) & ( XXX:?x & YYY:?y & ( @(a12b:?x 12 ?y) & !x:a & !y:b | Out$(1 x !x y !y) ) ) ( XXX:?x & YYY:?y & @(a12b:?x ~<>12 ?y) & !x:a & !y:b | Out$(2 x !x y !y) ) ( XXX:?x & YYY:?y & ( @(a-12b:?x -12 ?y) & !x:a & !y:b | Out$(3 x !x y !y) ) ) ( XXX:?x & YYY:?y & ( @(a12b:?x <13 ?y) & !x: & !y:a12b | Out$(4 x !x y !y) ) ) ( XXX:?x & YYY:?y & ( @(a12b:?x (#:<13) ?y) & !x:a & !y:2b | Out$(4b x !x y !y) ) ) ( XXX:?x & YYY:?y & ( @(a12b:?x #<13 ?y) & !x:a & !y:2b | Out$(4c x !x y !y) ) ) ( XXX:?x & YYY:?y & ( @(a-12b:?x <-11 ?y) & !x: & !y:a-12b | Out$(5 x !x y !y) ) ) ( XXX:?x & YYY:?y & ( @(a-12b:?x (#:<-11) ?y) & !x:a & !y:b | Out$(5b x !x y !y) ) ) ( XXX:?x & YYY:?y & ( @(a-12b:?x #<-11 ?y) & !x:a & !y:b | Out$(5c x !x y !y) ) ) ( XXX:?x & YYY:?y & ( @(a12b:?x >11 ?y) & !x: & !y:12b | Out$(6 x !x y !y) ) ) ( XXX:?x & YYY:?y & ( @(a12b:?x #>11 ?y) & !x:a & !y:b | Out$(6b x !x y !y) ) ) ( XXX:?x & YYY:?y & ( @(a-12b:?x >-13 ?y) & !x: & !y:"-12b" | Out$(7 x !x y !y) ) ) ( XXX:?x & YYY:?y & ( @(a-12b:?x #>-13 ?y) & !x:a & !y:2b | Out$(7b x !x y !y) ) ) ( XXX:?x & YYY:?y & ( @(" -12b":?x >-13 ?y) & !x:" " & !y:2b | Out$(7c x !x y !y) ) ) ( XXX:?x & YYY:?y & ( @(a12b:?x ~11 ?y) & !x: & !y:a12b | Out$(8 x !x y !y) ) ) ( XXX:?x & YYY:?y & ( @(a12b:?x <>11 ?y) & !x: & !y:a12b | Out$(8b x !x y !y) ) ) ( XXX:?x & YYY:?y & ( @(a12b:?x (#:~11) ?y) & !x:a & !y:2b | Out$(8c x !x y !y) ) ) ( XXX:?x & YYY:?y & ( @(a-12b:?x <>-13 ?y) & !x: & !y:a-12b | Out$(9 x !x y !y) ) ) ( XXX:?x & YYY:?y & ( @("-12b":?x <>-13 ?y) & !x: & !y:"-12b" | Out$(9b x !x y !y) ) ) ( XXX:?x & YYY:?y & ( @(a:?x <>-13 ?y) & !x: & !y:a | Out$(9c x !x y !y) ) ) ( XXX:?x & YYY:?y & @(a:<>-13) | Out$9d ) ( XXX:?x & YYY:?y & @(a:<>"-13") | Out$9e ) ( XXX:?x & YYY:?y & @("-12b":?x #<>-13 ?y) & !x: & !y:2b | Out$(9f x !x y !y) ) out$10 ( XXX:?x & YYY:?y & @(a12b:?x (~<11:?z) ?y) & !x: & !z:a & !y:12b | Out$(10 x !x y !y z !z) ) ( XXX:?x & YYY:?y & @(a-12b:?x (~<-13:?z) ?y) & !x: & !z:a & !y:"-12b" | Out$(11 x !x z !z y !y) ) ( XXX:?x & YYY:?y & @(a12b:?x ~<12 ?y) & !x: & !y:12b | Out$(12 x !x y !y) ) ( XXX:?x & YYY:?y & @(a-12b:?x ~<-12 ?y) & !x: & !y:"-12b" | Out$(13 x !x y !y) ) ( XXX:?x & YYY:?y & @(a12b:?x ~>13 ?y) & !x: & !y:a12b | Out$(14 x !x y !y) ) ( XXX:?x & YYY:?y & @(a12b:?x (#:~>13) ?y) & !x:a & !y:2b | Out$(15 !x y !y) ) ( XXX:?x & YYY:?y & @(a12b:?x ~#>13 ?y) & !x: & !y:12b | Out$(16 x !x y !y) ) ( XXX:?x & YYY:?y & @(a12b:?x (#:~>13) ?y) & !x:a & !y:2b | Out$(16b x !x y !y) ) ( XXX:?x & YYY:?y & @("a1 2b":?x ~#>13 ?y) & !x: & !y:"1 2b" | Out$(16c x !x y !y) ) ( XXX:?x & YYY:?y & @("a1 2b":?x ~#>1 ?y) & !x: & !y:"1 2b" | Out$(16d x !x y !y) ) ( XXX:?x & YYY:?y & @(z:~#>1:?x) & !x:z | Out$(16d x !x y !y) ) ( XXX:?x & YYY:?y & @(z:~#>y:?x) & !x:z | Out$(16e x !x y !y) ) ( XXX:?x & YYY:?y & @(z:~#:?x) & !x:z | Out$(16f x !x y !y) ) ( XXX:?x & YYY:?y & @(z:~#z:?x) & !x:z | Out$(16g x !x y !y) ) ( XXX:?x & YYY:?y & @(a-12b:?x ~>-11 ?y) & !x: & !y:a-12b | Out$(17 x !x y !y) ) ( XXX:?x & YYY:?y & @(a-12b:?x (#:~>-11) ?y) & !x:a & !y:b | Out$(18 x !x y !y) ) ( XXX:?x & YYY:?y & @(a-12b:?x ~#>-13 ?y) & !x: & !y:"-12b" | Out$(19 x !x y !y) ) out$20 ( XXX:?x & YYY:?y & @(aabaa:?x >aa ?y) & !x: & !y:aa | Out$(20 x !x y !y) ) ( XXX:?x & YYY:?y & @(aabcbbcaa:?x (>bb:bb:, not in a stringmatch context. Remember, the first @ says that subject is an atom, which it is in the match context, but not in a stringmatch context.)" ( @( 12/34:@(#?a (~#%@:?y) #?b:?x) & !y:"/" ) & Out$"28L stringmatch must have atom as subject." ) " (This fails because 12/34 is not an atom in a stringmatch context.)" ( @( "returns the current value of the file position indicator." : ?f "." (("." ?|~(? "." ?)):?g) ) & str$!f : "returns the current value of the file position indicator" & str$!g: | Out$(29 str$("f=[" !f "]\ng=[" !g "]\n")) ) out$30 (@(:~(? c ?))|Out$30) (@(c:c ~(? x ?))|Out$31) ( @("abc\n1) def":?a \n1 %?s ?c) & !a:abc & !s:")" & !c:" def" | Out$(32a FENCE a !a s !s) ) ( @("abc 1) def":?a " 1" %?s ?c) & !a:abc & !s:")" & !c:" def" | Out$(32b FENCE a !a s !s) ) (@(c:% ?)|Out$(33 FENCE)) ( xxx:?var & :?res & 0:?len & @( "der var en varulv" : ? %?var ? en ? ( ? & !var:xxx & Out$xxx & get' | !var & ( den$(sim$(,!var)):?nlen:>!len & !nlen:?len & !var:?res | ) & ~ ) ulv ) | !res:" var" | Out$(34 res !res) ) ( @(abcd:? (ab ?x d) ?) & !x:c | Out$(35 x !x) ) ( @(32/407:~<>3 ?x)&!x:2/407 | Out$(36 x !x) ) ( @(a12b:?x #<13 ?y) & !x:a & !y:2b | Out$(37 x !x) ) ( @("abc 1] def":?a " 1" %?s ?c) & !a:abc & !s:"]" & !c:" def" | Out$(38 a !a s !s c !c) ) ( @(" -12b":?x >-13 ?y) & !x:" " & !y:2b | Out$(39 x !x y !y) ) out$40 ( @(abxyzcxyde:?a (xy|xyz) c ?b) & !a:ab & !b:xyde | Out$(40 a !a b !b) ) ( @(abxyzcxyde:?a (xy|xyz) zc ?b) & !a:ab & !b:xyde | Out$(41 a !a b !b) ) ( @(abxyzcxyde:?a (?c:xy) zc ?b) & !a:ab & !b:xyde & !c:xy | Out$(42a a !a b !b c !c) ) ( @(abxyzcxyde:?a (xy:?c) zc ?b) & !a:ab & !b:xyde & !c:xy | Out$(42b a !a b !b c !c) ) ( @(abxyxyde:?a (?c:xy) ?b) & !a:ab & !b:xyde & !c:xy | Out $ ( 42c a str$("[" !a "]") b str$("[" !b "]") c str$("[" !c "]") ) ) ( (pat=?x (c|C) ?z) & @(abcd:!pat) & !x:ab & !z:d | Out$"43 string match med alternation fails." ) ( :?X:?Z & ( pat = (?x&!X str$("[" !x "]"):?X) "<" ?Z ) & @(abde" ? ) & @("blah BLAH ahum":!pat) & !X:"[blah ]" & !Z:html | Out $ (str$("45b (Acceptable)" " X " !X " Z " str$("[" !Z "]"))) ) ( :?X:?Z & ( pat = (?x&!X str$("[" !x "]"):?X) ("<"|"[") ?Z ) & @("blah BLAH ahum":!pat) & !X:"[]" "[b]" "[bl]" "[bla]" "[blah]" "[blah ]" & !Z:"html> BLAH ahum" | Out$(45c X !X Z str$("[" !Z "]")) ) ( :?X:?Z & ( pat = (?x&!X str$("[" !x "]"):?X) ("<"|"[") ? ">" !pat | ?Z ) & @("blah BLAH ahum":!pat) & !X:"[blah ]" "[ ]" "[ BLAH ]" "[ ]" & !Z:" ahum" | Out $ (str$("46a (Acceptable)" " X " !X " Z " str$("[" !Z "]"))) ) ( :?X:?T:?Z & ( pat = (?x&!X str$("[" !x "]"):?X) ("<"|"[") (?tag&!T str$("[" !tag "]"):?T) ">" !pat | ?Z ) & @("blah BLAH ahum":!pat) & !X:"[blah ]" "[ ]" "[ BLAH ]" "[ ]" & !T:"[html]" "[body]" "[/body]" "[/html]" & !Z:" ahum" | Out $ ( str $ ("46 (Acceptable)" " X " !X " T " !T " Z " str$("[" !Z "]")) ) ) ( ( time = Word , word , wrd , drow , first , line , max , readl , rev , text , word , wrd . 0:?max & :?Word & ( | fil$(!arg,r) & fil$(,STR,\n) & :?text & ( readl = fil$:(?line.?) & !text " " !line:?text & !readl ) & ~!readl & ~(fil$(,SET,-1)) & str$!text:?text ) & "derr varr engangs i tot gnagne rrav red ot !":?text & @( !text : (|? " ") ( ~(? " " ?):?word:?wrd & den$(sim$(,!word)):>!max & ( rev = @(!word:%@?first ?word) & str$(!first !drow):?drow & !rev ) & :?drow & ~!rev | ~ ) " " (|? " ") ( !drow & ( den$(sim$(,!drow)) : >!max : ?max & !wrd:?Word | ) & ~ ) (|" " ?) ) | !Word:varr&!max:4 | Out$(47 !Word !max) ) & time$main ) ( :?X:?y:?x:?t & @( abcdefdefdefghi : (?x&!X !x:?X) %?t !t !t ?y ) & !X:a ab abc & !y:ghi & !t:def | Out$(48 X !X y !y t !t) ) ( : ?X : ?y : ?x : ?t : ?Y : ?z & @( abcdpolptubcddsxyutg : (?x&!X !x:?X) bcd ( (?y gh|?y xy|?y pt) & !Y !y:?Y ) ut ?z ) & !X:a & !Y:polptubcdds & !z:g | Out$(str$("49 (Acceptable)" " X " !X " Y " !Y " z " !z)) ) out$50 ( :?d:?t:?D:?T & @( ab : (?d&!d !D:?D) ( ("<"&S) (?t&!t !T:?T) (">"&E) | ) ) & !D:ab & !T:cd | Out$(str$("50 (Acceptable)" " D " !D " T " !T)) ) ( m a i n l:? (m a i n) ?W & !W:l | Out$(51 W !W) ) (@(has:(h a s) ?)|Out$52) ( @(ab123fg:? #?n (%@:~#) ?) & !n:123 | Out$(52 n !n) ) ( @(ab123fg:? #?n ~#%@ ?)&!n:123 | Out$(53 n !n) ) ( @(ab123fg:? #?n ~#% ?)&!n:1 | Out$(54 n !n) ) ( @(ab123fg:? #?n ~# ?)&!n:1 | Out$(55 n !n) ) (@(:~/#)&a&Out$"56 must fail!") (@(ffre1/2a:? / ?)|Out$"57 must succeed!") ( @( ffre1/23a : ? ( /:?b&:?n | #:?n&:?b ) (~/#:?h) ? ) & !b:1/2 & !n: & !h:3 | Out$(58 b !b n !n h !h) ) ( :?X & ( (a.s) (d.f) (f.e) (y.s) : ? ((?x&!x !X:?X):(d.j)) ? | !X : (y.s) (f.e) (d.f) (a.s) | Out$(59 X !X) ) ) out$60 ( x:?*%?+? | Out$"60a Very basic error with composite term" ) ( 1:?X & ( (a.s)*(d.f)*(f.e)*(y.s) : ?*((?x&!x !X:?X):(d.j))*? | !X : 1 (y.s) 1 (f.e) 1 (d.f) 1 (a.s) 1 1 | Out$(60b X !X) ) ) (e^(i*pi):-1|Out$(61 e^(i*pi))) ( -1*i^1/3:-i^5/3 | Out$(62 -1*i^1/3) ) ( :?X & ( @( abcd : ? ((?a&A !a !X:?X):%@ %@) (?z&~) ) | !X : A A d A A cd A c A A bc A b A A ab A a A & | Out$(63 X !X) ) ) (@(:? ?)|Out$(64 Must not fail)) ( (obj=x=) & @(abc:?(obj.x) c) & !(obj.x):ab | Out$("65 obj.x" !(obj.x)) ) ( @( " Rinit Kong and Corman Lezane" : ?a ( ( " " | \n | \r | \t ) "and " | "," ) ?b ) & !a:" Rinit Kong" & !b:"Corman Lezane" | Out$"66a first alternation fails because of embedding" ) ( @( "pand " : ?a ((p|q) and|z) ?b ) | Out$"66b first alternation fails because of embedding" ) ( @("pand ":?a (p and|z) ?b) | Out$"66c first alternation fails because of embedding" ) ( @(pand:((p|q) and|z) ?) | Out$"66d first alternation fails because of embedding" ) ( @(pand:((p|q) and|z)) | Out$"66e first alternation fails because of embedding" ) ( @(pand:(p and|z) ?) | Out$"66f first alternation fails because of embedding" ) ( @(pand:((p|q) and) ?) | Out$"66g first alternation fails because of embedding" ) ( @(pand:(p|q) and ?) | Out$"66h first alternation fails because of embedding" ) ( @( aaaaaaaaaaa : ( ((aa|aaa) (aaaaa|aa)) (aaa|aaaa|aaaaaaa) ) aa ) | Out$"66i first alternation fails because of embedding" ) ( @( aaaaaaaaaaaaaa : ( ((aa|aaa) (aaaaa|aa)) (aaa|aaaa|aaaaaaa) ) aa ) | Out$"66j first alternation fails because of embedding" ) ( @( aaaaaaaaaaaaaa : ( (aa|aaa) (aaaaa|aa) (aaa|aaaa|aaaaaaa) ) aa ) | Out$"66k first alternation fails because of embedding" ) ( :?X & @( aaaaaaaaaaaaaa : ( (?x&(!x,!X):?X) : ((aa|aaa):?p) ((aaaaa|aa):?q) ( (aaa|aaaa|aaaaaaa) : ?rr ) ) aa ) & ( aaaaaaaaaaaa , aaaaaaaaaaa , aaaaaaaaaa , aaaaaaaaa , aaaaaaaa , aaaaaaa , aaaaaa , aaaaa , aaaa , aaa , aa , a , , ) : !X & !p:aaa & !q:aa & !rr:aaaaaaa | Out $ "66l (Acceptable) (optimization) first alternation fails because of embedding" ) ( :?X & @( aaaaaaaaaaaaaa : ( (?x&(!x,!X):?X) : ((aa|aaa):?p) ((aaaaa|aa):?q) ( (aaa|aaaa|aaaaaaa) : ?rr ) ) aa ) & ( aaaaaaaaaaaa , aaaaaaa , aaaaaa , aaaaa , aaaa , aaa , aa , a , , ) : !X & !p:aaa & !q:aa & !rr:aaaaaaa | Out$"66lbis first alternation fails because of embedding" ) out$66m ( @( aaab : ( (|a) (|a) (|a|aa) ) b ) | Out$"66m first alternation fails because of embedding" ) out$66n ( ( N = @( aaab : ( ((|a):?X) ((|a):?Y) ((|a|aa):?Z) ) b ) ) & ( !N & :!X & a:!Y & aa:!Z | Out$"66n first alternation fails because of embedding" ) ) out$66o ( @(aaab:((|a) aa) b) | Out$"66o first alternation fails because of embedding" ) out$66p ( @( aaaaaaaaaaaaaa : ((aa|aaa) (aaaaa|aa)) (aaa|aaaa|aaaaaaa) aa ) | Out$"66p first alternation fails because of embedding" ) out$66q ( @( aaaaaaaaaaaaaa : ( ((aa|aaa) (aaaaa|aa)) (aaa|aaaa|aaaaaaa) ) aa ) | Out$"66q first alternation fails because of embedding" ) out$66r ( @( aaaaaaaaaaaaaaa : ( ((aa|aaa) (aaaaa|aa)) (aaa|aaaa|aaaaaaa) ) aa ) & Out$"66r first alternation fails because of embedding" ) ( @( aaaa : (((aa|aa) ()) aa) () ) | Out$66rbis ) out$67 ( @(abXk:(|? b|`) X ?id) & Out $ "67 (Acceptable) (string match optimization) Pattern should only match subjects having only b's before the X" ) ( @( abXk : (|? b|`) (|) X ?id ) & Out $ "67b Pattern should only match subjects having only b's before the X" ) ( @( abXk : (|? b|`) () X ?id ) & Out $ "67c Pattern should only match subjects having only b's before the X" ) out$68 ( a b X k : (|? b|`) X ?id & Out $ "68 Pattern should only match subjects having only b's before the X" ) out$69 ( @( bbbbXk : (|? b|`) ((%@:~b) ?:?id) ) & !id:Xk | Out $ "69 Pattern should match subjects having only b's before the X" ) out$70 ( b b b b b X k : (|? b|`) ((%@:~b) ?:?id) & !id:X k | Out $ "70 Pattern should match subjects having only b's before the X" ) out$71 ( a a () ():a a & () (): & a () a:a a & : | Out$"71 Empty words must disappear from list" ) out$72 ( | @(a:a)&~@(a:b) | Out$"72 result of string match can be negated" ) out$73 ( | (@(a:b)|~@(a:a)) & Out $ "73 result of negated succeeded string match must be failure" ) out$74 (1000000:?times) ( ( snake = !i+1:0/7)|Out$118) (~(0:<0/7)|Out$119) out$120 (0:0/7|Out$120) (~(0:<>0/7)|Out$121) (~(0/7:7)|Out$122) (0/7:0|Out$123) (~(0/7:<>0)|Out$124) (0/7*7:0|Out$125) (4^0/7:1|Out$126) (4^1:4|Out$127) (4^0:1|Out$128) ( alc$100:#:~0:?p&fre$!p | Out$129 ) out$130 (~(alc$0)|Out$130) (~(alc$0/7)|Out$131) (~(3*0^-1)|Out$132) (3/0+8:8+3/0|Out$133) (~(3*0/7^-1)|Out$134) (0/7^2:0|Out$135) (0/7-1:0/7-1|Out$136) (~(0/7^-1)|Out$137) (1/7^-1:7|Out$138) ( @(007:?x #?y) & !x:00 & !y:7 | Out$139 ) out$140 ( @(0/7:?x #?y) & !x: & !y:0/7 | Out$140 ) out$141 ( @(00/7:?x #?y) & !x:0 & !y:0/7 | Out$141 ) out$142 (7^-0/7:1|Out$142) out$143 (7^0/7:1|Out$143) out$144 ( @(00/07:?x #?y) & !x:00/0 & !y:7 | Out$144 ) out$145 ( @(0/07:?x #?y) & !x:0/0 & !y:7 | Out$145 ) out$146 (~(0/0:#)|Out$146) out$147 ( x^(y*(a+b))+z^(y*(a+b))+-1*x^(a*y+b*y) : z^(y*(a+b)) | Out$147 ) out$148 ( cos$(a+b)+-1*(cos$a*cos$b+-1*sin$a*sin$b) : 0 | Out$148 ) out$149 ( (H=falfkhal) & (f=H) & glf$('(!.$f)):(=?g) & '($g ()):(=?F) & !F:falfkhal & '($g bla):(=?G) & !G:falfkhal bla & '(bla ()$g):(=?X) & !X:bla falfkhal | Out$149 ) ( (HHH=falfkhal) & (fff=HHH) & glf$('(!.$fff)):(=?ggg) & '($ggg ()):(=?FFF) & !FFF:falfkhal & '($ggg bla):(=?GGG) & !GGG:falfkhal bla & '(bla ()$ggg):(=?XXX) & !XXX:bla falfkhal | Out$149a ) out$150 ( x^(y*(a+b))+x^(a*y+b*y) : 2*x^(y*(a+b)) | Out$150 ) ( fil$("file.txt",w) & fil$(,STR," \n\r\t") & fil$(,,,"Workers lost their jobs.") & fil$("file.txt",r) & fil$(,STR) & fil$(,,".!?,;"):(?str.?stop) & !str:Workers & !stop: & fil$("file.txt","a+") & fil$(,STR) & fil $ ( , , cv , " of the world, unite! Proletarier aller Länder, vereinigt euch!" ) & fil$("file.txt",r) & fil$(,STR) & fil$(,,".!?,;"):(?str.?stop) & !str:"Workers of the world" & !stop:"," & fil$(,STR,cL) & fil$:(?str.?stop) & !str:" unite! Proletarier aller " & !stop:L & fil$:(?str.?stop) & !str:"änder, " & !stop: & ~(fil$(,SET,-1)) | Out$151 ) ( 0:?pos & :?L & @( "Proletarier aller Länder, vereinigt euch!" : ? ( [!pos ?word ( " " | "," | "!" | "?" | "." | ";" | \t | \n | \r ) [?pos ?rem & (!word,!L):?L & ~ ) ) | (!rem,!L):?L & !L : (,euch,vereinigt,,Länder,aller,Proletarier,) | Out$152 ) ( (ab=ab (|!ab)) & @(aaaaaaabababababbaaaa:?x !ab b ?y) & !x:aaaaaa & !y:aaaa | Out$153 ) ( "Looping by backtracking" & :?p & @( " sdak hkj from=\"#12\" askl >twelve< alkjsda from=\"#7\" askl >seven< fhur" : ?A ( ("from=\"#" ?id \"&!id:#) ? ">" ?v "<" & (!id.!v) !p:?p & ~` ) ? ) | !p:(7.seven) (12.twelve) | Out$154 ) ( (ut=.utf$(chu$!arg):!arg) & ( map = f,l,c . !arg:(?f.?l)&!l: | !l:%?c ?l & ( !f$!c&map$(!f.!l) | out$(f !f c !c)&~ ) ) & map $ ( ut . 0 127 128 254 255 256 2047 2048 65535 2097151 2097152 67108863 67108864 2147483647 ) | Out$154 ) (chu$2147483648&Out$155) ( str$(abcde chu$67108863 pqrst chr$200 uvwxyz) : ?txt & :?O & whl ' @( !txt : ( %?c & !O !c:?O & utf$!c:?n ) ?txt ) & chr$(x2d$BF):?qu & chr$(x2d$FB):?UD & chr$(x2d$C8):?EE & !O : a b c d e !UD str$(!UD !qu) str$(!UD !qu !qu) str$(!UD !qu !qu !qu) str$(!UD !qu !qu !qu !qu) p q r s t !EE str$(!EE u) & @(!txt:chr$200 ?) | Out$156 ) ( @(" xyz ":?a (>xx:?y) ?b) & !y:xy | Out$157 ) ( @(" xyz ":?a (>@xx:?y) ?b) & !y:y | Out$158 ) ( @(" \txyz ":?a (<" ":?y) ?b) & !y: | Out$159 ) out$160 ( @(" \txyz ":?a (<%" ":?y) ?b) & !y:\t | Out$160 ) ( @(" xyz ":?a (<>%@" ":?y) ?b) & !y:x | Out$160b ) ( @(str$(" " \r \n \t " xyz "):?a (>@" ":?y) ?b) & !y:x | Out$161 ) ( @(str$(" " \r \n \t " xyz "):?a (>" ":?y) ?b) & !y:" " | Out$162 ) ( @(" \r xyz\r ":?a (>@" " ?:?y) ~>%" " ?) & str$("[" !y "]"):"[xyz]" | Out$162 ) (a b c d:a ~@ d|Out$163) ( a b c d:a b ~@ d&Out$164 | ) ( a b c d:a b ~@ c d&Out$165 | ) (a+b*c+d*h:a+~@+d*h|Out$166) ( a b c d e:a b c ~@(?:?) e & Out$167 | ) ( @(abcde:abc ~@(?:?) e)&Out$168 | ) ( a b c d e:a b ~@(?:?) e | Out$169 ) out$170 (@(abcde:ab ~@(?:?) e)|Out$170) ( 8211:?"EN DASH" & chu$!"EN DASH":?endash & lst$(endash,"endash.bra",NEW) & :?endash & get'"endash.bra" & utf$!endash:8211 | Out$171 ) ( Piccolo:?NN & @(!NN:!NN ?a) & !a: | Out$172 ) (x2d$ffffffff:4294967295|Out$173) (d2x$4294967295:FFFFFFFF|Out$174) (d2x$-1:1&Out$175|) (d2x$077:4D&Out$176|) (x2d$0f:15|Out$177) (x2d$0fff:4095|Out$178) (x2d$0111:273|Out$179) out$180 (x2d$111:273|Out$180) ( "Бу́ря мгло́ю не́бо кро́ет," : ~<>"бу́ря мгло́ю не́бо кро́ет," | Out$181 ) ( "Бу́ря мгло́ю не́бо кро́ет," : ~<>"БУ́РЯ МГЛО́Ю НЕ́БО КРО́ЕТ," | Out$182 ) ( "Бу́ря мгло́ю не́бо кро́ет," : "БУ́РЯ МГЛО́Ю НЕ́БО КРО́ЕТ," & Out$183 | ) ( @( "abcБу́ря мгло́ю не́бо кро́ет,xyz" : ?A ~<>"бу́ря мгло́ю не́бо кро́ет," ?Z ) & !A:abc & !Z:xyz | out$(A !A Z !Z)&Out$184 ) ( @( "abcБу́ря мгло́ю не́бо кро́ет,xyz" : ?A ~<>"БУ́РЯ МГЛО́Ю НЕ́БО КРО́ЕТ," ?Z ) & !A:abc & !Z:xyz | out$(A !A Z !Z)&Out$185 ) ( @( "abcБу́ря мгло́ю не́бо кро́ет,xyz" : ?A "БУ́РЯ МГЛО́Ю НЕ́БО КРО́ЕТ," ?Z ) & Out$186 | ) ( @(abcGjJjgdsJJHGfxyz:?A ~<>gjjjgdsjjhgf ?Z) & !A:abc & !Z:xyz | out$(A !A Z !Z)&Out$187 ) ( @(abcGjJjgdsJJHGfxyz:?A ~<>GJJJGDSJJHGF ?Z) & !A:abc & !Z:xyz | out$(A !A Z !Z)&Out$188 ) ( @(abcGjJjgdsJJHGfxyz:?A GJJJGDSJJHGF ?Z) & Out$189 | ) out$190 ( str$(GJJJGDS chu$(x2d$23E+10792) JJHGF):?X & @( str$(abcGjJjgds chu$(x2d$23E) JJHGfxyz) : ?A ~<>!X ?Z ) & !A:abc & !Z:xyz | Out$190 ) ( str$(GJJJGDS chu$(x2d$C4) JJHGF):?X & @( str$(abcGjJjgds chr$(x2d$C4) JJHGfxyz) : ?A ~<>!X ?Z ) & !A:abc & !Z:xyz | Out$191 ) (b:>(str$a)|Out$192) (@(b:>(str$a))|Out$193) (b:~<>(str$B)|Out$192) (@(b:~<>(str$B))|Out$193) ( new$hash:?myhash & (myhash..ISO)$ & (str$(chr$(x2d$C4) chr$(x2d$C7)).isokey) : ?keyval1 & (str$(chu$(x2d$C4) chu$(x2d$C7)),unicodekey1) : ?keyval2 & (str$(chu$(x2d$C5) chu$(x2d$C7)),unicodekey2) : ?keyval3 & (myhash..insert)$!keyval1 & (myhash..insert)$!keyval2 & (myhash..insert)$!keyval3 & (myhash..find) $ (str$(chr$(x2d$E4) chu$(x2d$C7))) : ?a & !a:!keyval2 !keyval1 | Out194 ) (sim$(backyard,backaryd):14/16|Out$195) ( sim $ ( str$(A chu$(x2d$190+203) x) , str$(a chu$(x2d$190) X) ) : 6/6 | Out$196 ) ( sim $ ( str$(A chr$250 chr$251 x) , str$(a chu$250 chu$251 X) ) : 8/8 | Out$197 ) ( 1000:?n & chu$(x2d$23F):?"LATIN SMALL LETTER S WITH SWASH TAIL" & :?s & whl ' ( !n+-1:?n:~<0 & !n !"LATIN SMALL LETTER S WITH SWASH TAIL" !s:?s ) & str$!s:?s & put$(str$(!s \n upp$!s),swash,NEW) & upp$!s:~<>!s & @(upp$!s:~<>!s) | Out$198 ) (d2x$#34&Out$199|) out$200 (d2x$(2^64)&Out$200|) (d2x$(2^32+-1)|Out$201) (d2x$-1&Out$202|) (d2x$232/3&Out$203|) (d2x$(x2d$FFFFfFFF):FFFFFFFF|Out$204) (x2d$10000000000000000&Out$205|) (x2d$-1&Out$206|) (x2d$AFG&Out$207|) ( d2x$(utf$(chu$(x2d$7fffffff))):~<>7fffffff | Out$208 ) (chu$(x2d$80000000)&Out$209|) ( d2x$(2^64)&Out$"210 even om 64-bit" | ) out$210 ( x2d$10000000000000000&Out$"211 even om 64-bit" | ) ( a b c:% c | Out$"212 problem with nonident flag" ) ( @(abc:% c) | Out$"213 problem with nonident flag" ) "Force backtracking at end of subject with nil pattern." ( @(abccc:?x (|? c|`) ()) & !x:ab | Out $ "214 (Acceptable) (string match optimization) cannot parse tail of unknown number of same elements" ) ( @( abccc : ?x (|? c|`) (|) ) & !x:ab | Out$"214b cannot parse tail of unknown number of same elements" ) ( @(abccc:?x (|? c|`) ()) & !x: | Out$214c ) ( a b c c c : ?x (|? c|`) () & !x:a b | Out$"215 cannot parse tail of unknown number of same elements" ) ( ( patient = (name=(first=John),(last=Bull)) , (age=20) , ( new = . new$(its.name):(=?(its.name)) & !arg : ( ?(its.name.first) . ?(its.name.last) . ?(its.age) ) ) ) & new$(patient,(Albert.Keinstein.42)):?x & !(patient.name.first):John & !(x..name.first):Albert & new$(patient.name):?Name & Alice:?(Name..first) & Alice:!(Name..first) & new$('$patient,(Albert.Keinstein.42)):?y & '$(x..name):'$(y..name) & '$(x..age):'$(y..age) & :?seq & new $ ( = (a=1) , (b=2) , (new=.!seq new:?seq) , (die=.!seq die:?seq) ) : ?ab & !seq reassigned:?seq & 3:?(ab..a) & :?ab & !seq:new reassigned die & :?seq & new $ ( = (a=1) , (b=2) , (new=.!seq new:?seq) , (die=.!seq die:?seq) ) : (=?cd) & !seq reassigned:?seq & 3:?(cd.a) & :?cd & !seq:new die reassigned | Out$216 ) ( new$hash:?myhash & :?notice & ( = ( myInsert = K,V,v . !arg:(?K.?V) & (Its..find)$!K:(?.?v) | (Its..insert)$!arg ) (die=."Oh my dear":?notice) ) : (=?(myhash.)) & (myhash..myInsert)$(X.12) & (myhash..myInsert)$(X.12) & (myhash..myInsert)$(X.10) & (myhash..insert)$(Z.1) & (myhash..insert)$(Z.1) & (myhash..insert)$(Z.2) & (myhash..find)$X:(X.12) & (myhash..find)$Z : (Z.2) (Z.1) (Z.1) & (myhash..remove)$Z : (Z.2) (Z.1) (Z.1) & !notice: & :?myhash & !notice:~ | Out$217 ) ( x\D(x\Dcos$x)+1+cos$x:1 | Out$218 ) (0+x:x|Out$219) out$220 (x+0:x|Out$220) ((1+a)+b:1+a+b|Out$221) (2\L3+2\L9:4+2\L27/16|Out$222) ( 2\L3+2\L9+3\L123:8+2\L27/16+3\L41/27 | Out$223 ) (i*x+-i*x+a:a|Out$224) (i*x+-i*x:0|Out$225) ( (3*a+4*b)+5:5+3*a+4*b | Out$226 ) (b+a:a+b|Out$227) (b+a+c:a+b+c|Out228) ( (a+c+f)+b+d+g:a+b+c+d+f+g | Out229 ) (i+-i*x:i+-i*x|Out230) (i+-i:0|Out231) (i*x+-i:-i+i*x|Out232) ( (i*x+i*z)+i*y:i*x+i*y+i*z | Out233 ) ( i*y+i*x+i*z:i*x+i*y+i*z | Out234 ) (i*x+3*i*x:4*i*x|Out235) (3*i*x+i*x:4*i*x|Out236) (-i*x+3*i*x:2*i*x|Out237) (-i*x+3*-i*x:4*-i*x|Out238) (3*-i*x+-3*i*x:6*-i*x|Out$239) (3*-i*x+-3*-i*x:0|Out$240) (i*x+3*-i*x:2*-i*x|Out$241) (3*i*x+-3*i*x:0|Out$242) (3*i*x+4*i*x:7*i*x|Out$243) (3*-i*x+i*x:2*-i*x|Out$244) (3*-i*x+i*x:2*-i*x|Out$245) (3*-i*x+-i*x:4*-i*x|Out$246) (3*i*x+-i*x:2*i*x|Out$247) (i+i:2*i|Out$248) (-i+i:0|Out$249) (-i+-i:2*-i|Out$250) ((-i+a)+-i:a+2*-i|Out$251) ((i+i*x)+-i:i*x|Out$252) (-i+-i+i*y:2*-i+i*y|Out$253) (3*a+a:4*a|Out$254) ( (b^3+c^3)+b^3+c+b^3:c+3*b^3+c^3 | Out$255 ) out$256 ( | (1+a+b+c)^72+1&ok | Out$256 ) ( x^(y*(a+b))+-1*x^(a*y+b*y):0 | Out$257 ) ( (@(~`ab:%?x %?y)&!x):a | Out$258 ) ( (a b c:% c):a b c | Out$259 ) (i^-7:i|Out$260) (-i^-7:-i|Out$261) (9^7:4782969|Out$262) ((a+b)^-7:(a+b)^-7|Out$263) (7+7:14|Out$264) (4+7:11|Out$265) ( i*x+i*y+i*z:i*x+i*y+i*z | Out$266 ) (a+n*a:a+a*n|Out$267) (n*a+m*a:a*m+a*n|Out$268) (7*a+9*a:16*a|Out$269) (a+a:2*a|Out$270) ( (1+a+b+c)^3+1 : 2 + 3*a + 3*b + 3*c + 3*a^2 + a^3 + 3*b^2 + b^3 + 3*c^2 + c^3 + 6*a*b + 6*a*c + 3*a*b^2 + 3*a*c^2 + 6*a*b*c + 6*b*c + 3*b*c^2 + 3*a^2*b + 3*a^2*c + 3*b^2*c | Out$271 ) (-1*140/1000:-7/50|Out$272) (x*0:0|Out$273) (a*a:a^2|Out$274) (0*x:0|Out$275) (1*-1:-1|Out$276) (1/10*1/10:1/100|Out$277) ( -1*1/4*e^(2*i*x):-1/4*e^(2*i*x) | Out$278 ) (-1*i:-i|Out$279) (-3*i*x:3*-i*x|Out$280) ( (f.e)*(y.s):(f.e)*(y.s) | Out$281 ) (e^(i*x)*e^(-i*x):1|Out$282) (a*a^n:a^(1+n)|Out$283) (a^m*a:a^(1+m)|Out$284) ( i * i * (-1/2*e^(i*a)+1/2*e^(-i*a)) * (-1/2*e^(i*b)+1/2*e^(-i*b)) : -1 * (-1/2*e^(i*a)+1/2*e^(-i*a)) * (-1/2*e^(i*b)+1/2*e^(-i*b)) | Out$285 ) (x*2:2*x|Out$286) (i*2*x:2*i*x|Out$287) (i^n*-i^m:i^(-1*m+n)|Out$288) (i*-i^n:i^(1+-1*n)|Out$289) (i^m*-i:i^(-1+m)|Out$290) (i*-i:1|Out$291) (-7*i^9:7*i|Out$292) (-7*-i^9:7*-i|Out$293) (2*i*x:2*i*x|Out$294) ( i^n*-i^m*z:i^(-1*m+n)*z | Out$295 ) (x\L(2+y):x\L(2+y)|Out$296) ( x\L(a*x^n*z):n+x\L(a*z) | Out$297 ) (x\L1:0|Out$298) (z\L0:z\L0|Out$299) ((x+y)\Lz:(x+y)\Lz|Out$300) (0\Lx:0\Lx|Out$301) (1\Lx:1\Lx|Out$302) (-7\Lx:-7\Lx|Out$303) (x\L7:x\L7|Out$304) ( 7\L-9:1+7\L9/7+i*pi*e\L7^-1 | Out$305 ) (7\L9:1+7\L9/7|Out$306) (1/7\L9:-1*(1+7\L9/7)|Out$307) (7\L(7+9):1+7\L16/7|Out$308) (7\L1/9:-2+7\L49/9|Out$309) ( (x:?((=(a=) (b=kal)).b)) : x & "Atom kal is lost: the source code is changed!" & !loss | Out$310 ) ( b:?((x.y).z)&Out$311 | ok ) out$312 ( (monk2:?(=monk1)):monk2 | Out$312 ) ( (borfo=klot=pang) & bk:?(borfo klot) & "Atom pang is lost: the source code is changed!" & !loss & !(borfo.klot):bk | Out$313 ) ( ( a b c : (?z:?x:?y:?a:?b) c ) : a b c | Out$314 ) ( 0:?n & a b c:?abc & whl ' ( !n+1:?n:<2000 & str$(v !n):?vv & !abc:?!vv c ) | Out$315 ) ( 45237183544316235476^1/2:45237183544316235476^1/2 | Out$316 ) ( 327365274^1/2 : 2^1/2*3^1/2*2477^1/2*22027^1/2 | Out$317 ) ( 80956863^1/2:3*13^1/2*541^1/2*1279^1/2 | Out$318 ) (32^1/2:2^5/2|Out$319) (-3^2/3:-3^2/3|Out$320) (i^4:1|Out$321) ( 66:?(someUnidentifiableObject.x) & Out$322 | ) ( (1+x+z)^3+1 : 2 + 3*x + 3*z + 3*x^2 + x^3 + z^3 + 3*x*z^2 + 3*x^2*z + 3*(z^2+2*x*z) & Out$323 | (1+x+z)^3+1 : 2 + 3*x + 3*z + 3*x^2 + x^3 + 3*z^2 + z^3 + 6*x*z + 3*x*z^2 + 3*x^2*z | Out$324 ) out$325 ( (==):(=%_%) & '$_:(==) | Out$325 ) out$326 ( (=.):(=%_%) & '$_:(=.) | Out$326 ) out$327 ( (=,):(=%_%) & '$_:(=,) | Out$327 ) out$328 ( (=|):(=%_%) & '$_:(=|) & Out$328 | ) out$329 ( (=&):(=%_%) & '$_:(=&) & Out$329 | ) out$330 ( (=:):(=%_%) & '$_:(=:) & Out$330 | ) out$331 ( (=a b):(=%_%) & '$_:(=() ()) | Out$331 ) out$332 ( (=+):(=%_%) & '$_:(=+) | Out$332 ) out$333 ( (=*):(=%_%) & '$_:(=*) | Out$333 ) out$334 ( (=^):(=%_%) & '$_:(=^) | Out$334 ) out$335 ( (=\L):(=%_%) & '$_:(=\L) | Out$335 ) out$336 ( (=\D):(=%_%) & '$_:(=\D) | Out$336 ) out$337 ( (=$):(=%_%) & '$_:(=$($)) | Out$337 ) out$338 ( (='):(=%_%) & '$_:(=$(')) | Out$338 ) out$339 ( (=_):(=%_%) & '$_:(=_) | Out$339 ) out$340 ( ( like = . sim$(!arg,!sjt):>9/10&? | den$(sim$(!sjt,)):~<(den$(sim$(!arg,0))) & ~` ) & @( "Dogs and Cats are friends" : ? (like$cat:?animal) ? ) & !animal:Cat | Out$340 ) ( ( dependent = . !sjt:(0|1)&~` | !sjt : ( ?*!arg^?*? | ?*?^(?+dependent$!arg+?)*? ) ) & a+b^2+c+2*p^(5+2^x)+q : ?indep+dependent$x+? & !indep:a+c+q+b^2 | Out$341 ) ((1+i)*(1+-i)+Z:2+Z|Out$342) ( @("-23/4)))))":-23/4)&Out$343 | ) ("2)"+3:3+"2)"|Out$344) (utf$(chr$145)&Out$345|) ( utf$(str$(chu$145 abc))&Out$346 | ) ( @( str$(abc chr$145 def) : ? (>%@"~" ?:?a&utf$!a) ? ) & Out$347 | !a:chr$145 | Out$348 ) ( @( str$(abc chu$145 def) : ? (>%@"~" ?:?a&utf$!a) ? ) & !a:chu$145 | Out$349 ) ( ( listcomprehension = A P L M . !arg:(?L.(=?P)) & :?A & !( ' ( $L : ? ( %`:$P:?M & !M !A:?A & ~ ) ? ) ) | !A ) & ( qsort = Pivot Rest . !arg: | !arg:%?Pivot ?Rest & qsort$(listcomprehension$(!Rest.'<($Pivot))) !Pivot qsort$(listcomprehension$(!Rest.'~<($Pivot))) ) & qsort$(ba pg uosdaf dna gre) : ba dna gre pg uosdaf | Out$350 ) ( (a=b) & /#<>%@?`!('$a):?X & put$(!X,MEM):"/#<>%@?`b" | Out$"351 (Acceptable), /('(v.e)) is lambda" ) ( (a=b) & #<>%@?`!('$a):?X & put$(!X,MEM):"#<>%@?`b" | Out$351bis ) ( (a=b) & /#<>%@?`!!(=a):?X & put$(!X,MEM):"/#<>%@?`b" | Out$352 ) ( (a=b) & ~/#<>%@?`!!(=a):?X & put$(!X,MEM):"~/#<>%@?`b" | Out$353 ) ( (a=b) & (b=c) & ~/#<>%@?`!!a:?X & put$(!X,MEM):"~/#<>%@?`c" | Out$354 ) ( (1+i)*(1+e)*(1+pi)*(1+a) : (1+a)*(1+e)*(1+i)*(1+pi) & e\Lx*i\Lx*pi\Lx*a\Lx*3\Lx : 3\Lx*a\Lx*e\Lx*i\Lx*pi\Lx & (e.x)*(i.x)*(pi.x)*(a.x)*(3.x) : (3.x)*(a.x)*(e.x)*(i.x)*(pi.x) & (e x)*(i x)*(pi x)*(a x)*(3 x) : (3 x)*(a x)*(e x)*(i x)*(pi x) | Out$355 ) ( e*i*pi*a*3:3*i*pi*e*a & e^x*i^x*pi^x*a^x*3^x : 3^x*i^x*pi^x*e^x*a^x | Out$356 ) ( (A=a*t*u) & (B=b*k*r*u) & !A*!B:a*b*k*r*t*u^2 | Out$357 ) ( (A=a*e*i*o*u*y) & (B=b*p) & (C=c*t*s*z) & !A*!B*!C:i*e*a*b*c*o*p*s*t*u*y*z | Out$358 ) ( (F=j*z) & (A=a*e*i*o*u*y) & (B=b*p) & (C=!F*t*s*!F) & !A*!B*!C : i*e*a*b*j^2*o*p*s*t*u*y*z^2 | Out$359 ) ( ( K = . x : ?((=(a=) (b=jet)).b) ) & !(K..b):jet & K$ & "Atom jet is lost: the source code is changed!" & !loss & !(K..b):x | Out$360 ) ( ( f = a n r q . !arg:(?a,?n) & mod$!arg:?r & div$!arg:?q & (!n*!q+!r,!q,!r) ) & "Raymond T. Boute 1992 'The Euclidean definition of the functions div and mod'" & f$(7,3):(7,2,1) & f$(7,-3):(7,-2,1) & f$(-7,3):(-7,-3,2) & f$(-7,-3):(-7,3,2) | Out$361 ) (mod$(7,0)&Out$362|) (div$(7,0)&Out$363|) ( @( 0123456789abcdefghijklmnopqrstuvwxyz : ? ([>5:[<18) ?n ([~<13:[~13) ? ) & !n:6789abcd | Out$364 ) ( @(012xyz:? [!TYTR ?)&Out$365 | ) ( @(012xyz:? [!(xua.gjh) ?) & Out$366 | ) ( @(0123456789:?a [#>%@5 ?z) & 0123456789:!z & !a: | Out$367 ) ( @(0123456789:?a [5/2 ?z)&Out$368 | ) ( @(0123456789:?a [5a ?z)&Out$369 | ) ( @(abcd20/5efgh:?a 20/5 ?z) & !a:abcd & !z:efgh | Out$370 ) ( @(abcd40/10efgh:?a 20/5 ?z) & !a:abcd & !z:0/10efgh | Out$371 ) ( @(abcd40/10efgh:?a %20/5 ?z)&Out$372 | ) (@(abcd-20/5efgh:?a %20/5 ?z)|Out$373) ( @(abcd-20/5efgh:?a %-20/5 ?z) & !a:abcd- & !z:efgh | Out$374 ) ( @(abcd-20/5efgh:?a %"-20/5" ?z) & !a:abcd & !z:efgh | Out$375 ) ( @(abcd4efgh:?a 20/5 ?z) & !a:abcd & !z:efgh | Out$376 ) ( @(abcd20/5efgh:?a 4 ?z) & !a:abcd & !z:efgh | Out$377 ) ( @(abcd-20/5efgh:?a -20 ?z) & !a:abcd & !z:"/5efgh" | Out$378 ) ( @(abcd-20/5efgh:?a -20/5 ?z) & !a:abcd & !z:efgh | Out$379 ) ( XXX:?x & YYY:?y & ( @(a12/5b:?x 12/5 ?y) & !x:a & !y:b | Out$(380 x !x y !y) ) ) ( XXX:?x & YYY:?y & @(a12/5b:?x ~<>12/5 ?y) & !x:a & !y:b | Out$(381 x !x y !y) ) ( XXX:?x & YYY:?y & ( @(a-12/5b:?x -12/5 ?y) & !x:a & !y:b | Out$(382 x !x y !y) ) ) ( XXX:?x & YYY:?y & ( @(a12/5b:?x <13/5 ?y) & !x: & !y:a12/5b | Out$(383 x !x y !y) ) ) ( XXX:?x & YYY:?y & ( @(a12/5b:?x (#:<13/5) ?y) & !x:a & !y:2/5b | Out$(384 x !x y !y) ) ) ( XXX:?x & YYY:?y & ( @(a12/5b:?x #<13/5 ?y) & !x:a & !y:2/5b | Out$(385 x !x y !y) ) ) ( XXX:?x & YYY:?y & ( @(a-12/5b:?x <-11/5 ?y) & !x: & !y:a-12/5b | Out$(386 x !x y !y) ) ) ( XXX:?x & YYY:?y & ( @(a-12/5b:?x (#:<-11/5) ?y) & !x:a & !y:"/5b" | Out$(387 x !x y !y) ) ) ( XXX:?x & YYY:?y & ( @(a-12/5b:?x #<-11/5 ?y) & !x:a & !y:"/5b" | Out$(388 x !x y !y) ) ) ( XXX:?x & YYY:?y & ( @(a12/5b:?x >11/5 ?y) & !x: & !y:12/5b | Out$(389 x !x y !y) ) ) out$390 ( XXX:?x & YYY:?y & ( @(a12/5b:?x #>11/5 ?y) & !x:a & !y:"/5b" | Out$(390 x !x y !y) ) ) ( XXX:?x & YYY:?y & ( @(a-12/5b:?x >-13/5 ?y) & !x: & !y:"-12/5b" | Out$(391 x !x y !y) ) ) ( XXX:?x & YYY:?y & ( @(a-12/5b:?x #>-13/5 ?y) & !x:a & !y:2/5b | Out$(392 x !x y !y) ) ) ( XXX:?x & YYY:?y & ( @(" -12/5b":?x >-13/5 ?y) & !x:" " & !y:2/5b | Out$(393 x !x y !y) ) ) ( XXX:?x & YYY:?y & ( @(a12/5b:?x ~11/5 ?y) & !x: & !y:a12/5b | Out$(394 x !x y !y) ) ) ( XXX:?x & YYY:?y & ( @(a12/5b:?x <>11/5 ?y) & !x: & !y:a12/5b | Out$(395 x !x y !y) ) ) ( XXX:?x & YYY:?y & ( @(a12/5b:?x (#:~11/5) ?y) & !x:a & !y:2/5b | Out$(396 x !x y !y) ) ) ( XXX:?x & YYY:?y & ( @(a-12/5b:?x <>-13/5 ?y) & !x: & !y:a-12/5b | Out$(397 x !x y !y) ) ) ( XXX:?x & YYY:?y & ( @("-12/5b":?x <>-13/5 ?y) & !x: & !y:"-12/5b" | Out$(398 x !x y !y) ) ) ( XXX:?x & YYY:?y & ( @(a:?x <>-13/5 ?y) & !x: & !y:a | Out$(399 x !x y !y) ) ) ( XXX:?x & YYY:?y & @(a:<>-13/5) | Out$400 ) ( XXX:?x & YYY:?y & @(a:<>"-13/5") | Out$401 ) ( XXX:?x & YYY:?y & @("-12/5b":?x #<>-13/5 ?y) & !x: & !y:2/5b | Out$(402 x !x y !y) ) ( XXX:?x & YYY:?y & @(a12/5b:?x (~<11/5:?z) ?y) & !x: & !z:a & !y:12/5b | Out$(403 x !x y !y z !z) ) ( XXX:?x & YYY:?y & @(a-12/5b:?x (~<-13/5:?z) ?y) & !x: & !z:a & !y:"-12/5b" | Out$(404 x !x z !z y !y) ) ( XXX:?x & YYY:?y & @(a12/5b:?x ~<12/5 ?y) & !x: & !y:12/5b | Out$(405 x !x y !y) ) ( XXX:?x & YYY:?y & @(a-12/5b:?x ~<-12/5 ?y) & !x: & !y:"-12/5b" | Out$(406 x !x y !y) ) ( XXX:?x & YYY:?y & @(a12/5b:?x ~>13/5 ?y) & !x: & !y:a12/5b | Out$(407 x !x y !y) ) ( XXX:?x & YYY:?y & @(a12/5b:?x (#:~>13/5) ?y) & !x:a & !y:2/5b | Out$(408 !x y !y) ) ( XXX:?x & YYY:?y & @(a12/5b:?x ~#>13/5 ?y) & !x: & !y:12/5b | Out$(409 x !x y !y) ) ( XXX:?x & YYY:?y & @(a12/5b:?x (#:~>13/5) ?y) & !x:a & !y:2/5b | Out$(410 x !x y !y) ) ( XXX:?x & YYY:?y & @("a1 2b":?x ~#>13/5 ?y) & !x: & !y:"1 2b" | Out$(411 x !x y !y) ) ( XXX:?x & YYY:?y & @("a1 2b":?x ~#>1/2 ?y) & !x: & !y:"1 2b" | Out$(412 x !x y !y) ) ( get$("S=@\"\\\"",MEM) & @(lst$(S,MEM,LIN):"S=\"\\\\\";\n") | Out$413 ) ( tyr:?a:?b:?c:?d & :?a+?b^?c+?d & 0:!a:!b & 1:!c & :!d | Out$414 ) ( @(te8dhjfhgjs:? @(?:hjf) ?) & Out$415 | ) ( @(te8dhjfhgjs:? @(?:h) ?) | Out$416 ) ( @(te8dhjfhgjs:? (?:hjf) ?) | Out$417 ) ( ( fac = a n w . 1:?a:?n & ' ( whl ' ( !n+1:?n:~>($arg) & !n*!a:?a ) ) : (=?w) & !w & !a ) & fac$6:720 | Out$418 ) ( ( for = var low high body f . !arg:(?var.?low.?high.(=?body)) & !low:? & ' ( $var . !arg:~>($high):?($var) & $body f$(1+!arg) | ) : (=?f) & f$!low ) & for$(i.1.10.(=!i*!i)) : 1 4 9 16 25 36 49 64 81 100 | Out$419 ) out$420 ( div$(99992875430473650921,200989899999990):497501 & mod$(99992875430473650921,200989899999990) : 199190578625931 & 497501*200989899999990+199190578625931 : 99992875430473650921 | Out$420 ) ( 0:?n & whl ' ( 1+!n:<1000:?n & 5726597846592437657823456/67678346259784659237457297 * 5364523564325982435082458045728395/543895704328725085743289570 + 1 : ?T ) & !T | Out$421 ) ( div $ ( str $ ( 49 8918 6537 5379 6027 5284 5547 8490 8661 9497 1046 4659 1548 9196 7773 4375 ) , str$(19 0734 8632 8125) ) : 2615770631392702116808388659070192556289800095219 | Out$421 ) ( div $ ( str $ ( 2196 1650 8919 2974 3215 7073 0621 4564 2791 2031 3819 6549 4747 1313 1129 9366 3974 6358 7719 6679 3575 3654 6885 9672 5463 8671 8750 ) , str$(1 8626 4514 9230 9570 3125) ) | Out$422 ) ( div $ (str$(20 0000 0000 0000),str$(20 0000 9999)) : 9999 | Out$423 ) out$424 ( mod $ (str$(20 0000 0000 0000),str$(20 0000 9999)) : 1900019999 | Out$424 ) out$425 ( div$(str$(18 1250),str$(5 0000)):3 & mod$(str$(18 1250),str$(5 0000)):31250 | Out$425 ) out$426 ( div $ ( str $ (161720 0698 7389 3746 5082 0593 0593 1465) , str$(25 4437 4934 4404 3978 4559) ) : 635598424135 & mod $ ( str $ (161720 0698 7389 3746 5082 0593 0593 1465) , str$(25 4437 4934 4404 3978 4559) ) : 0 & div $ ( str $ ( 1281 3307 7722 7017 0549 6146 3471 6539 3868 6652 0593 0593 1465 ) , str$(25 4437 4934 4404 3978 4559) ) : 503593538783547230635598424135 & mod $ ( str $ ( 1281 3307 7722 7017 0549 6146 3471 6539 3868 6652 0593 0593 1465 ) , str$(25 4437 4934 4404 3978 4559) ) : 0 | Out$426 ) out$427 ( 1976756647973123294680928976431872768328426137782145658245269391263277/10014190032827718657639678155081564003836547271930612623691558837890625 + -1/4540096597283049817406208603642880916595458984375 : 662213477070996303718111207104677377390022756156279878709600982156003194/3354753660997285750309292181952323941285243336096755228936672210693359375 | Out$427 ) out$428 ( div $ ( 8974666131119424625907615373889857098808121829825832763865355161901930363408178004114290615689242258667945861816406250 , 13552527156068805425093160010874271392822265625 ) : 662213477070996303718111207104677377390022756156279878709600982156003194 & mod $ ( 8974666131119424625907615373889857098808121829825832763865355161901930363408178004114290615689242258667945861816406250 , 13552527156068805425093160010874271392822265625 ) : 0 | Out$428 ) out$429 ( 953353/1000:?S & div$(mod$(!S*100,100),1):35 & 98/10:?S & mod$(!S,1):4/5 | Out$429 ) out$430 ( ( pi = s1,s2,isgn,isgn1,err1,err2,err,i,j . 0:?s1 & 1:?isgn & 1:?i & whl ' ( !i:~>!arg & 2*!i+-1:?j & !s1+!isgn*(!j*5^!j)^-1:?s1 & -1*!isgn:?isgn & 1+!i:?i ) & 16*((2*!arg+1)*5^(2*!arg+1))^-1:?err1 & !isgn:?isgn1 & 16*!s1:?s1 & 0:?s2 & 1:?isgn & 1:?i & whl ' ( 2*!i+-1:?j & (!j*239^!j)^-1:?err2 & 4*!err2:>!err1 & !s2+!isgn*!err2:?s2 & -1*!isgn:?isgn & 1+!i:?i ) & flt$(!isgn1*(!err1+4*!err2),2):?err & out$(error !err) & !s1+-4*!s2 ) & flt$(pi$800,1120) : "3,1415926535897932384626433832795028841971693993751058209749445923078164062862089986280348253421170679821480865132823066470938446095505822317253594081284811174502841027019385211055596446229489549303819644288109756659334461284756482337867831652712019091456485669234603486104543266482133936072602491412737245870066063155881748815209209628292540917153643678925903600113305305488204665213841469519415116094330572703657595919530921861173819326117931051185480744623799627495673518857527248912279381830119491298336733624406566430860213949463952247371907021798609437027705392171762931767523846748184676694051320005681271452635608277857713427577896091736371787214684409012249534301465495853710507922796892589235420199561121290219608640344181598136297747713099605187072113499999983729780499510597317328160963185950244594553469083026425223082533446850352619311881710100031378387528865875332083814206171776691473035982534904287554687311595628638823537875937519577818577805321712268066130019278766111959092164201989380952572010654858632788659361533818279682303019520353018529689957736225994138912497217752834791315155748572424541506959*10E0" | Out$430 ) out$431 ( ( ( = = a b . !arg:?a_?b & ((its.)$!b)_((its.)$!a) | !arg ) . ) ' (x y^g (z,8.L)) : (L.8,z) g^y x | Out$431 ) ( ((~`A|B)|C):C | Out$432 ) ((~`A|B)&Out$433|) ( flg$(=!a):(=?X.?Z) & lst$(X,MEM,LIN):"X=!;\n" & !Z:a | Out$433 ) ( (=.('(.$arg*$arg+!arg*!arg))$5)$2 : 29 | Out$434 ) ( ( = . !arg:0&1 | !arg * ( ( = r . !arg:?r & ' ( . !arg:0&1 | !arg*(($r)$($r))$(!arg+-1) ) ) $ ( = r . !arg:?r & ' ( . !arg:0&1 | !arg*(($r)$($r))$(!arg+-1) ) ) ) $ (!arg+-1) ) $ 10 : 3628800 & "recursive lambda function computing factorial of 10. g := λr. λn.(1, if n = 0; else n × (r r (n-1))) f := g g or, translated to Bracmat ( (=(r.!arg:?r&'(.!arg:0&1|!arg*(($r)$($r))$(!arg+-1)))):?g & (!g$!g):?f & !f$10 ) See http://en.wikipedia.org/wiki/Lambda_calculus" | Out$435 ) ( ( = WORDT = DOT . KOMMA , OF | EN & MATCH : LUCHT PLUS + MAAL*EXP^LOG\LDIF\DFUU'FUN$STREEP_X ) : ( = $ ( WORDT = $ ( DOT . $ ( KOMMA , $ ( OF | $ ( EN & $ ( MATCH : $ ( LUCHT () $ ( PLUS + $ ( MAAL * $ ( EXP ^ $ ( LOG \L $ ( DIF \D $ ( FUU ' $ ( FUN $ ( $ STREEP _ X ) ) ) ) ) ) ) ) ) ) ) ) ) ) ) ) | Out$436 ) ( (=!(a.b)):(=$!(a.b)) | Out$437 ) ( (=!(a.b)):(=$!(a,b)) & Out$438 | ) ((=!):(=$!)|Out$439) out$440 ( (=!(a.b)):(=$!) | Out$440 ) ( ((=-a):(=$-)):(=-a) | Out$441 ) ( (=):(=$):(=) | Out$442 ) ( ((=a.b):(=$)) : (=a.b) | Out$443 ) ( (=-a):(=$)&Out$444 | ) ( (=-):(=$)&Out$445 | ) ( (=#):(=$)&Out$446 | ) ((=!-a):(=$!-a)|Out$447) ( (=!-a):(=$!-b)&Out$448 | ) ( (=):(=$-)&Out$449 | ) out$450 ( (=a.b):(=$-) & Out$450 | ) out$451 ( (=a):(=$-)&Out$451 | ) out$452 ( (=!):(=$!!)&Out$452 | ) out$453 ( (=?a):(=$!|$?) | Out$453 ) out$454 ( (=?a):(=$?|$!) | Out$454 ) out$455 ( (x=13) & (y=17) & (plus=a+a) & '$plus:(=?_?) & '$($x)_($y):(=?res) & !res:30 & !plus:2*a | Out$455 ) out$456 ( (hello=dag+dag) & '('$($hello)):(=?anothertemplate) & !anothertemplate : (=dag+dag) : (=?res) & !res:2*dag | Out$456 ) out$457 ( (x=13) & (y=17) & (plus=a+a) & '$plus:(=?_?) & (template='$($x)_($y)) & !template:(=?res) & !res:30 & !plus:2*a & (=r*r):(=?_?) & !template:(=?res) & !res:221 | Out$457 ) out$458 ( (hello=dag+dag) & '('$($hello)):(=?anothertemplate) & !anothertemplate : (=dag+dag) : (=?res) & !res:2*dag & (hello=Bye*Bye) & !anothertemplate : (=Bye*Bye) : (=?res) & !res:Bye^2 | Out$458 ) out$459 ( ((=)=5):(=5) | Out$459 ) out$460 ( fct $ ( Ur^2 + -2*E*K^2*(sin.theta)^2 + 2*E*K^2*(sin.theta)^4 + -2 * J * K * S * r^-1 * (2*E+U2)^1/2 * (sin.theta)^2 + 2 * J * K * S * r^-1 * (2*E+U2)^1/2 * (sin.theta)^4 + -2*J*S*Uphi*(sin.theta)^4 + -2*K*Uphi*r*(2*E+U2)^1/2*(sin.theta)^4 + -1*J^2*S^2*r^-2*(sin.theta)^2 + J^2*S^2*r^-2*(sin.theta)^4 + -1*K^2*U2*(sin.theta)^2 + K^2*U2*(sin.theta)^4 + Uphi^2*r^2*(sin.theta)^2 + Uphi^2*r^2*(sin.theta)^4 + Utheta^2*r^2 ) : -2 * r^-2 * ( E*K^2*r^2*(sin.theta)^2 + -1*E*K^2*r^2*(sin.theta)^4 + J*K*S*r*(2*E+U2)^1/2*(sin.theta)^2 + -1*J*K*S*r*(2*E+U2)^1/2*(sin.theta)^4 + J*S*Uphi*r^2*(sin.theta)^4 + K*Uphi*r^3*(2*E+U2)^1/2*(sin.theta)^4 + 1/2*J^2*S^2*(sin.theta)^2 + -1/2*J^2*S^2*(sin.theta)^4 + 1/2*K^2*U2*r^2*(sin.theta)^2 + -1/2*K^2*U2*r^2*(sin.theta)^4 + -1/2*Uphi^2*r^4*(sin.theta)^2 + -1/2*Uphi^2*r^4*(sin.theta)^4 + -1/2*Ur^2*r^2 + -1/2*Utheta^2*r^4 ) | Out$460 ) ((refac=.fct$(1+!arg+-1))|Out$461) ( fcttest = expected ans . !arg:(?arg.?expected) & !expected+-1*!arg:0 & fct$!arg:!expected & fct$!expected:!expected & !expected ) ( refac$((2+a)*(3+b)):6*(1+1/3*b)*(1+1/2*a) | Out$462 ) ( refac $ ( E*r^2*(cos.theta)^2*(sin.theta)^2 + J * K * S * r * (2*E+U2)^1/2 * (cos.theta)^2 * (sin.theta)^2 + 1/2*U2*r^2*(cos.theta)^2*(sin.theta)^2 + 1/2*J^2*S^2*(cos.theta)^2*(sin.theta)^2 + -1/2*Uphi^2*r^4*(sin.theta)^2 + -1/2*Uphi^2*r^4*(sin.theta)^4 + -1/2*Ur^2*r^2 + -1/2*Utheta^2*r^4 ) : E*r^2*(cos.theta)^2*(sin.theta)^2 + J * K * S * r * (2*E+U2)^1/2 * (cos.theta)^2 * (sin.theta)^2 + 1/2*U2*r^2*(cos.theta)^2*(sin.theta)^2 + 1/2*J^2*S^2*(cos.theta)^2*(sin.theta)^2 + -1/2*Uphi^2*r^4*(sin.theta)^2 + -1/2*Uphi^2*r^4*(sin.theta)^4 + -1/2*Ur^2*r^2 + -1/2*Utheta^2*r^4 | Out$463 ) ( refac$((2+a)*(3+b)*(5+c)) : 30*(1+1/5*c)*(1+1/3*b)*(1+1/2*a) | Out$464 ) ( refac$(4*(2+a+x)*(3+b*d)*(5+c*y)) : 120*(1+1/5*c*y)*(1+1/3*b*d)*(1+1/2*a+1/2*x) | Out$465 ) ( refac$((2+a+x)*(3+b*d*f)*(5+c*y)) : 30*(1+1/5*c*y)*(1+1/3*b*d*f)*(1+1/2*a+1/2*x) | Out$466 ) ( refac $ ((2+3*a+x)*(3+6*b*d*f)*(5+11*c*y)) : 30 * (1+2*b*d*f) * (1+11/5*c*y) * (1+3/2*a+1/2*x) | Out$467 ) ( refac$(h*t+h*s*p+h*t^2+t*s) : h*t+h*t^2+h*p*s+s*t | Out$468 ) ( refac$((2+a)*(3+b)):6*(1+1/3*b)*(1+1/2*a) | Out$469 ) out$470 ( refac $ ( E*r^2*(cos.theta)^2*(sin.theta)^2 + J * K * S * r * (2*E+U2)^1/2 * (cos.theta)^2 * (sin.theta)^2 + 1/2*U2*r^2*(cos.theta)^2*(sin.theta)^2 + 1/2*J^2*S^2*(cos.theta)^2*(sin.theta)^2 + -1/2*Uphi^2*r^4*(sin.theta)^2 + -1/2*Uphi^2*r^4*(sin.theta)^4 + -1/2*Ur^2*r^2 + -1/2*Utheta^2*r^4 ) : E*r^2*(cos.theta)^2*(sin.theta)^2 + J * K * S * r * (2*E+U2)^1/2 * (cos.theta)^2 * (sin.theta)^2 + 1/2*U2*r^2*(cos.theta)^2*(sin.theta)^2 + 1/2*J^2*S^2*(cos.theta)^2*(sin.theta)^2 + -1/2*Uphi^2*r^4*(sin.theta)^2 + -1/2*Uphi^2*r^4*(sin.theta)^4 + -1/2*Ur^2*r^2 + -1/2*Utheta^2*r^4 | Out$470 ) ( refac$((2+a)*(3+b)*(5+c)) : 30*(1+1/5*c)*(1+1/3*b)*(1+1/2*a) | Out$471 ) ( refac$(4*(2+a+x)*(3+b*d)*(5+c*y)) : 120*(1+1/5*c*y)*(1+1/3*b*d)*(1+1/2*a+1/2*x) | Out$472 ) ( refac$((2+a+x)*(3+b*d*f)*(5+c*y)) : 30*(1+1/5*c*y)*(1+1/3*b*d*f)*(1+1/2*a+1/2*x) | Out$473 ) ( refac $ ((2+3*a+x)*(3+6*b*d*f)*(5+11*c*y)) : 30 * (1+2*b*d*f) * (1+11/5*c*y) * (1+3/2*a+1/2*x) | Out$474 ) ( refac$((2+a+x)*(3+b*d)*(5+c*y)) : 30*(1+1/5*c*y)*(1+1/3*b*d)*(1+1/2*a+1/2*x) | Out$475 ) ( (f1=(-1*a+-2*b+-3*c)*(e+-5*d)) | Out$476A ) ( refac$!f1:5*(a+2*b+3*c)*(d+-1/5*e) | Out$476B ) ( refac$((1+!f1+-1)^1/2) : 5^1/2*(a+2*b+3*c)^1/2*(d+-1/5*e)^1/2 | Out$476C ) ( refac$((-1+!f1+1)^1/2*(-1*e+5*d)^1/2) : 5*(a+2*b+3*c)^1/2*(d+-1/5*e) | Out$476D ) ( refac$((-1+!f1+1)^1/2*(e+-5*d)^1/2) : 5*(d+-1/5*e)*(-1*a+-2*b+-3*c)^1/2 | Out$476E ) ( refac$((-1+!f1+1)^1/2*(e+-5*d)^-1/2) : (-1*a+-2*b+-3*c)^1/2 | Out$476F ) ( refac$((a+2*b+3*c)*(e+5*d)) : 5*(a+2*b+3*c)*(d+1/5*e) | Out$477 ) ( refac$((a+2*b)*(3*c+e+5*d)) : 3*(a+2*b)*(c+5/3*d+1/3*e) | Out$478 ) ( refac$(a*b+a^2*b*c+a*q+a^5) : a*(b+q+a^4+a*b*c) | Out$479 ) out$480 ( refac $ ((a*b+a^2*b*c+a*q+a^5)*(p^2+s^2)) : a*(b+q+a^4+a*b*c)*(p^2+s^2) | Out$480 ) ( fcttest $ ( n^2+n^(3+a)+n^(-7+h) . n^-7*(n^9+n^h+n^(10+a)) ) & fcttest $ ( n^-7*(n^9+n^h+n^(10*(1+1/10*a))) . n^-7*(n^9+n^h+n^(10+a)) ) | Out$481 ) ( fcttest $ ( n^(12+b)+n^(3+a)+n^(7+h) . n^3*(n^a+n^(4+h)+n^(9+b)) ) & fcttest $ ( n^3 * (n^a+n^(4*(1+1/4*h))+n^(9*(1+1/9*b))) . n^3*(n^a+n^(4+h)+n^(9+b)) ) | Out$482 ) ( fcttest $ ( n^(3/2+b)+n^(3+a)+n^(7+h) . n*(n^(1/2+b)+n^(2+a)+n^(6+h)) ) & fcttest $ ( n * ( n^(1/2*(1+2*b)) + n^(2*(1+1/2*a)) + n^(6*(1+1/6*h)) ) . n*(n^(1/2+b)+n^(2+a)+n^(6+h)) ) | Out$483 ) ( fcttest $ ( n^(3+a)+n^(3+a)+n^(7+a) . 2*n^(3+a)*(1+1/2*n^4) ) & fcttest $ ( 2*n^3*(n^a+1/2*n^(4*(1+1/4*a))) . 2*n^(3+a)*(1+1/2*n^4) ) | Out$484 ) ( fcttest $ ( n^(3+5*a*b)+n^(3+a*b)+n^(7+a*b+z) . n^(3+a*b)*(1+n^(4*a*b)+n^(4+z)) ) & fcttest $ ( n^3 * ( n^(4*(1+1/4*z+1/4*a*b)) + n^(5*a*b) + n^(a*b) ) . n^(3+a*b)*(1+n^(4*a*b)+n^(4+z)) ) | Out$485 ) ( fcttest $ ( n^(3+5*a*b) + n^(3+a*b) + n^(7+a*b+z) + n^(7+a*b+y) . n^(3+a*b) * (1+n^(4*a*b)+n^(4+y)+n^(4+z)) ) & fcttest $ ( n^3 * ( n^(4*(1+1/4*y+1/4*a*b)) + n^(4*(1+1/4*z+1/4*a*b)) + n^(5*a*b) + n^(a*b) ) . n^(3+a*b) * (1+n^(4*a*b)+n^(4+y)+n^(4+z)) ) | Out$486 ) ( fcttest $ ( a^((b+c)*(d+e))+a^((b+c)*(d+f)) . a^(b*d+c*d) * (a^(b*f+c*f)+a^(e*b+e*c)) ) | Out$487 ) ( fcttest $ ( (a^(d+e)+a^(d+f))^(b+c) . (a^(d+e)+a^(d+f))^(b+c) ) | Out$488 ) ( (a^((b+c)*(d+e))+a^((b+c)*(d+f))) + -1 * a^(b*d+c*d) * (a^(b*f+c*f)+a^(e*b+e*c)) : 0 | Out$489 ) out$490 ( -1*(a^((b+c)*(d+e))+a^((b+c)*(d+f))) + a^(b*d+c*d) * (a^(b*f+c*f)+a^(e*b+e*c)) : 0 | Out$490 ) out$491 ( a^(b*d+c*d) * (a^(b*f+c*f)+a^(e*b+e*c)) + -1*(a^((b+c)*(d+e))+a^((b+c)*(d+f))) : 0 | Out$491 ) out$492 ( -1 * a^(b*d+c*d) * (a^(b*f+c*f)+a^(e*b+e*c)) + a^((b+c)*(d+e)) + a^((b+c)*(d+f)) : 0 | Out$492 ) out$493 ( a b c d e f:? [(?p:?q) & '$q:(=$?:p) & "An expression with the [ prefix is evaluated!" & !p:6 | Out$493 ) out$494 ( :?animal & @( "Dogs and Cats are friends" : ? ( [%( sim$(cat,!sjt):>9/10 | den$(sim$(!sjt,)) : ~<(den$(sim$(cat,0))) & ~` ) : ?animal ) ? ) & !animal:Cat | Out$494 ) out$495 ( :?animal & Dogs and Cats are friends : ? %`( [%( sim$(cat,!sjt):>6/8 | den$(sim$(!sjt,)) : ~<(den$(sim$(cat,0))) & ~` ) : ?animal ) ? & !animal:Cats | Out$495 ) out$496 ( @( Δημοτική : (%?a&utf$!a) ?"String with both the first and last characters removed" (?z&utf$!z) ) | Out$496 ) out$497 ( @( Δημοτική : (%:[%(utf$!sjt)) ?"String with both the first and last characters removed" [%(utf$!sjt) ) & ημοτικ : !"String with both the first and last characters removed" | Out$497 ) out$498 ( ( W = whl'(1+!n:?n:~>1100&!W) ) & "Microsoft VC++ 2008 32 bit: 16056 debug: 1119 64 bit: 5384 Borland BC5 8618 gcc 4.1.2 20080704 23807" & 0:?n & !W | Out$498 ) out$499 ( ( L = ( loop = 1+!n:?n:~>4000 & !L & !loop ) & !loop ) & "Microsoft VC++ 2008 32 bit: 28546 debug: 4016 64 bit: 9231 Borland BC5 28730 gcc 4.1.2 20080704 157128" & 0:?n & `!L | Out$499 ) out$500 ( ( T = ( Y = /( ' ( g . /('(x.$g'($x'$x))) $ /('(x.$g'($x'$x))) ) ) ) & ( g = /( ' ( r . /( ' ( n . $n:~>0&1 | $n*($r)$($n+-1) ) ) ) ) ) & (!g$(!Y$!g))$4 ) & !T:24 | Out$500 ) out$501 ( ( T = ( Y = /( ' ( g . /('(x.$g'($x)$($x))) $ /('(x.$g'($x)$($x))) ) ) ) & ( g = /( ' ( r . /( ' ( n . $n:~>0&1 | $n*($r)$($n+-1) ) ) ) ) ) & (!g$(!Y$!g))$4 ) & !T:24 | Out$501 ) out$502 ( /('(x./('(x.$x ()$x))$aap))$noot : aap aap & "Inner x shadows outer x" | Out$502 ) out$503 ( ( CharacterLength = length c p q . 0:?length:?p & @( !arg : ? ( [!p %?c [?q & utf$!c:?k & !q:?p & 1+!length:?length & ~ ) ? ) | !length ) & CharacterLength$𝔘𝔫𝔦𝔠𝔬𝔡𝔢:7 | Out$503 ) out$504 ( ( @( abcdef : ?x (def|ef|f) ) & abc:!x ) & ( @( abcdef : ?x (def|f|ef) ) & abc:!x ) & ( @( abcdef : ?x (ef|f|def) ) & abc:!x ) & ( @( abcdef : ?x (ef|def|f) ) & abc:!x ) & ( @( abcdef : ?x (f|def|ef) ) & abc:!x ) & ( @( abcdef : ?x (f|ef|def) ) & abc:!x ) & ( @( abcdef : ?x (def|ef|f) ? ) & abc:!x ) & ( @( abcdef : ?x (def|f|ef) ? ) & abc:!x ) & ( @( abcdef : ?x (ef|f|def) ? ) & abc:!x ) & ( @( abcdef : ?x (ef|def|f) ? ) & abc:!x ) & ( @( abcdef : ?x (f|def|ef) ? ) & abc:!x ) & @( abcdef : ?x (f|ef|def) ? ) & abc:!x | Out504 ) out$505 ( @(abcd:~>%a ?x) & !x:bcd & @(abcd:<%ab ?x) & !x:bcd & @(abcd:<>%a ?x) & !x:cd & @(abcd:(~a:%) ?x) & !x:cd & @(abcdabcc:?v (c ?:cc) ?x) & !v:abcdab & !x: | Out$505 ) out$506 ( a b c+d:?x ?y+[4 & !x:a b & !y:c+d | Out$506 ) out$507 ( a b c+d:?x ?y+[-1 & !x: & !y:a b c+d | Out$506 ) ( a b c+d:%?x [?p+?y+[?q & !x:a & !y:b c+d & !p:1 & !q:2 | Out$507 ) ( a b c+d:%?x [?q+?y+[4 & !x:a b & !q:2 & !y:c+d | Out$508 ) (:[-1 ?|Out$509) (:? [-1 ?|Out$510) (:? [-1|Out$510) (0:[-1+?|Out$511) (0:?+[-1+?|Out$512) (0:?+[-1|Out$513) (1:[-1*?|Out$514) (1:?*[-1*?|Out$515) (1:?*[-1|Out$516) (1:[-1 ?&Out$517) (0:[-1 ?&Out$518) (0:[-1*?&Out$519) (:[-1*?&Out$520) (:[-1+?&Out$521) (1:[-1+?&Out$522) ( (g=(2.)+(1a.)+(10.)) & (h=(1a.)+(10.)+(2.)) & !g+!h:2*(2.)+2*(10.)+2*(1a.) & !h+!g:2*(2.)+2*(10.)+2*(1a.) & !h+-1*!g:0 | Out$523 ) (@(123b:~<124 b)&Out$524|) (@(123b:~<122 b)|Out$525) (@(123b:~<123 b)|Out$526) (@(1b:~<0 b)|Out$527) (@(1b:~<2 b)&Out$528|) (@(1b:~<1 b)|Out$529) & out $ ( str $ ( "Done. " ( !errors:0&"No errors" | !errors:1&"1 error" | !errors " errors" ) ". See valid.txt" ) ) ); r= get$"valid.bra" & rmv$"valid.bak" & ren$("valid.bra","valid.bak") & put$("{valid.bra} ","valid.bra",NEW) & lst$(Xobject,"valid.bra",APP) & put$(\n,"valid.bra",APP) & lst$(r,"valid.bra",APP) & put$(\n,"valid.bra",APP) & ( 666:?aaa & "LL keeps the '0' alife if 'lost' is incremented" & 0:?lost & (loss=1+!lost:?lost) & bez':(?bezs.?) & cat$:?cats & cat$:?cats & bez':(?bezs.?) & bez':(?bezs.?) & (Xobject.doit)$ & cat$:?ncats & whl ' ( !ncats:%?car ?ncats & ( !cats:? !car ? | !car:(ncats|car) | tbl$(!car,0) ) ) & tbl$(ncats,0) & tbl$(car,0) & !bezs:?aaa & bez':(?bezs.?) & bez':(?bezs.?) & !bezs+-1*!aaa:?aaa & out $ ( !aaa+!lost:-72&ok | "Memory discrepancy:" 72+!aaa+!lost ) | (Xobject.doit)$&done );