valid.bra

{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:<bc) ?y)
            & !x:aabc
            & !y:aa
          | Out$(21 x !x y !y)
          )
          (   XXX:?x
            & YYY:?y
            & @(aabcbbcaa:?x (>bb:<bc) ?y)
            & !x:aabc
            & !y:aa
          | Out$(22 x !x y !y)
          )
          (   XXX:?x
            & YYY:?y
            & b:?text
            & @(aabcbbcaa:?x !text ?y)
            & !x:aa
            & !y:cbbcaa
          | Out$(23 x !x y !y)
          )
          (   XXX:?x
            & YYY:?y
            & bc:?text
            & @(aabcbbcaa:?x !text ?y)
            & !x:aa
            & !y:bbcaa
          | Out$(24 x !x y !y)
          )
          (       get
                $ ( "The pacifier or shortcut flag is inherited by higher levels, it percolates
towards operators that are closer to the root of the tree, until it is
subsumed in situations like the above ones."
                  , MEM
                  , VAP
                  )
              :   ?f
                  ","
                  ( ?g
                  & ~(!g:?h "," ?&!h:~)
                  )
            &   str$!f
              : "The pacifier or shortcut flag is inherited by higher levels, it percolates
towards operators that are closer to the root of the tree"
          | Out$(25 str$("f=[" !f "]"))
          )
          (       get
                $ ( "The pacifier or shortcut flag is inherited by higher levels, it percolates
towards operators that are closer to the root of the tree, until it is
subsumed in situations like the above ones."
                  , MEM
                  , VAP
                  )
              :   ?f
                  ","
                  (("," ?|~(? "," ?)):?g)
            &   str$!f
              : "The pacifier or shortcut flag is inherited by higher levels, it percolates
towards operators that are closer to the root of the tree"
          | Out$(26 str$("f=[" !f "]"))
          )
          ( @("a  b":? "  " ?)
          | Out$(27 spaces not found)
          )
          ( ~(&@("a  b":? "  " ?))
          & Out$(28a negation does not work)
          )
          ( 
          |   ~(&~@("a  b":? "  k" ?))
            & Out$(28b negation does not work)
          )
          ( 
          | ~(&~@("a  b":? "  " ?))
          | Out$(28c negation does not work)
          )
          ( ~(&@("a  b":? "  k" ?))
          | Out$(28d negation does not work)
          )
          ( a b:~@(? b:a %)
          | Out$"28e normal match does not work"
          )
          ( ~@(a b:a ?)
          | Out$"28f normal match does not work"
          )
          ( ~@(a:a)
          | Out$"28g normal match does not work"
          )
          (   12/34:@(?x:#?a (~#%@:?y) #?b)
            & !y:"/"
          |   Out
            $ "28h string match inside context of normal match does not work"
          )
          ( a:~@(a:a)
          &   Out
            $ "28i normal match must fail because subject is not not an atom (it is an atom)."
          )
          ( ~@(a:b)
          &   Out
            $ "28j normal match must fail because subject and pattern are different."
          )
          ( 12/34:@(#?a (~#%@:?y) #?b:?x)
          & !y:"/"
          & Out$"28k outer stringmatch must have atom as subject."
          )
          "   (This fails because the pattern 
          #?a (~#%@:?y) #?b 
          is in the match context 12/34:<rhs>, 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<cd:!pat)
            & !X:"[abde]"
            & !Z:cd
          |   Out
            $ ( str
              $ ( "44 (Acceptable)"
                  " X "
                  !X
                  " Z "
                  str$("[" !Z "]")
                  " (No prematch of constants.)"
                )
              )
          )
          (   :?X:?Z
            & ( pat
              =   ( ?x
                  & !X str$("[" !x "]"):?X
                  )
                  ("<"|"[")
                  ?Z
              )
            & @(abde<cd:!pat)
            & !X:"[abde]"
            & !Z:cd
          |   Out
            $ ( str
              $ ( "45 (Acceptable)"
                  " X "
                  !X
                  " Z "
                  str$("[" !Z "]")
                  " (No prematch of alternating constants.)"
                )
              )
          )
          (   :?X:?Z
            & ( pat
              =   ( ?x
                  & !X str$("[" !x "]"):?X
                  )
                  ("<"|"[")
                  ?Z
                  ">"
                  ?
              )
            & @("blah <html> <body> BLAH </body> </html> 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 <html> <body> BLAH </body> </html> ahum":!pat)
            &   !X
              : "[]" "[b]" "[bl]" "[bla]" "[blah]" "[blah ]"
            & !Z:"html> <body> BLAH </body> </html> ahum"
          | Out$(45c X !X Z str$("[" !Z "]"))
          )
          (   :?X:?Z
            & ( pat
              =     ( ?x
                    & !X str$("[" !x "]"):?X
                    )
                    ("<"|"[")
                    ?
                    ">"
                    !pat
                | ?Z
              )
            & @("blah <html> <body> BLAH </body> </html> 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 <html> <body> BLAH </body> </html> 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<cd>
               :   (?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"
          )
          ( @( aaab
             :   ( (|a)
                   (|a)
                   (|a|aa)
                 )
                 b
             )
          | Out$"66m first alternation fails because of embedding"
          )
          ( ( N
            = @( aaab
               :   ( ((|a):?X)
                     ((|a):?Y)
                     ((|a|aa):?Z)
                   )
                   b
               )
            )
          & (   !N
              & :!X
              & a:!Y
              & aa:!Z
            | Out$"66n first alternation fails because of embedding"
            )
          )
          ( @(aaab:((|a) aa) b)
          | Out$"66o first alternation fails because of embedding"
          )
          ( @( aaaaaaaaaaaaaa
             :   ((aa|aaa) (aaaaa|aa))
                 (aaa|aaaa|aaaaaaa)
                 aa
             )
          | Out$"66p first alternation fails because of embedding"
          )
          ( @( aaaaaaaaaaaaaa
             :   ( ( (aa|aaa)
                     (aaaaa|aa)
                   )
                   (aaa|aaaa|aaaaaaa)
                 )
                 aa
             )
          | Out$"66q first alternation fails because of embedding"
          )
          ( @( aaaaaaaaaaaaaaa
             :   ( ( (aa|aaa)
                     (aaaaa|aa)
                   )
                   (aaa|aaaa|aaaaaaa)
                 )
                 aa
             )
          & Out$"66r first alternation fails because of embedding"
          )
          ( @( aaaa
             : (((aa|aa) ()) aa) ()
             )
          | Out$66rbis
          )
          ( @( 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"
          )
          (   a b X k
            : (|? b|`) X ?id
          &   Out
            $ "68 Pattern should only match subjects having only b's before the X"
          )
          (   @( 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
          ( ( !speed:slow&1000000
            | 100
            )
          : ?times
          )
          (   ( snake
              =   !i+1:<!times:?i
                & !(=spqr)
              )
            & "make circular datastructure!"
            & "Atom spqr is lost: the source code is changed!"
            & !loss
            & '$snake:(=?(snake.))
            & 0:?i
            & out$i
            & -1*clk$:?start
            & out$(start !start)
            & ~!snake
            & out$flt
            &   out
              $ ( flt$(clk$+!start,2)
                  "s Loop implemented as circular datastructure."
                )
            & "break circular datastructure"
            & :?(snake.)
            & !i+1:!times
          | Out$"74 tail recursion optimization with = operator failed"
          )
          out$75
          (   ( xxx
              =   ( dog
                  =   !i+1:<!times:?i
                    & !dog
                  )
                & ~!dog
                & 
              )
            & 0:?i
            & -1*clk$:?start
            & !xxx
            &   out
              $ ( flt$(clk$+!start,2)
                  "s Loop implemented with variable name evaluation."
                )
            & !i+1:!times
          | Out$"75 tail recursion optimization with variable failed"
          )
          out$76
          (   ( xxx
              =   ( artgallery
                  =   !i+1:<!times:?i
                    & !(xxx.artgallery)
                  )
                & ~!artgallery
                & 
              )
            & 0:?i
            & -1*clk$:?start
            & !xxx
            &   out
              $ ( flt$(clk$+!start,2)
                  "s Loop implemented with member name evaluation"
                )
            & !i+1:!times
          | Out$"76 tail recursion optimization with . operator failed"
          )
          out$76whl
          (   ( xxx
              =   whl'(!i+1:<!times:?i)
                | 
              )
            & 0:?i
            & -1*clk$:?start
            & !xxx
            &   out
              $ ( flt$(clk$+!start,2)
                  "s Loop implemented with whl built-in function"
                )
            & !i+1:!times
          | Out$"76whl Loop implemented with whl failed"
          )
          out$76
          (   (xxx=til'(!i+1:?i:~<!times))
            & 1:?i
            & -1*clk$:?start
            & !xxx
            &   out
              $ ( flt$(clk$+!start,2)
                  "s Loop implemented with til built-in function"
                )
            & !i:!times
          |   Out
            $ ("76til (Acceptable) Loop implemented with til failed" !i+1)
          )
          out$77
          (   ( snake
              =   !i+-1:?i:<(asc$a)
                |   chr$!i !s:?s
                  & !(=xyz)
              )
            & "In the following the xyz atom is destroyed, irreversibly diminishing the object count!"
            & !loss
            & '$snake:(=?(snake.))
            & "Demonstrates use of circular reference."
            & 1+asc$z:?i
            & :?s
            & !snake
            & "Open the loop, so that 'snake' is freed when it is gone out of scope."
            & 5:?(snake.)
            & str$!s:abcdefghijklmnopqrstuvwxyz
          | Out$"77 Loop using circular referencing data failed."
          )
          out$78
          ( :[?a
          & 0:!a
          &   Out
            $ "78 an atom with zero characters is not necessarily a nil element, that depends on the binary operator."
          & "different behaviour from stringmatch. Colpare (:%) SUCCEEDS and @(:%) FAILS"
          )
          out$78s
          ( @(:[?a)&0:!a
          | Out$"78s position flag [ failed"
          )
          out$79
          (       a
                  b
                  c
                  d
                  e
                  f
                  g
                  h
                  i
                  j
                  k
                  l
                  m
                  n
                  o
                  p
                  q
                  r
                  s
                  t
                  u
                  v
                  w
                  x
                  y
                  z
              : ?a [20 ?z [?len
            & !len:26
            &   !a
              :   a
                  b
                  c
                  d
                  e
                  f
                  g
                  h
                  i
                  j
                  k
                  l
                  m
                  n
                  o
                  p
                  q
                  r
                  s
                  t
            & !z:u v w x y z
          | Out$"79 position flag [ failed"
          )
          out$79s
          (   @(abcdefghijklmnopqrstuvwxyz:?a [20 ?z [?len)
            & !len:26
            & !a:abcdefghijklmnopqrst
            & !z:uvwxyz
          | Out$"79s position flag [ failed"
          )
          out$80
          (   26:?len
            &     a
                  b
                  c
                  d
                  e
                  f
                  g
                  h
                  i
                  j
                  k
                  l
                  m
                  n
                  o
                  p
                  q
                  r
                  s
                  t
                  u
                  v
                  w
                  x
                  y
                  z
              : ?a [(20+-1*(!len+1)) [?pos ?z [-1
            & !pos:20
            &   !a
              :   a
                  b
                  c
                  d
                  e
                  f
                  g
                  h
                  i
                  j
                  k
                  l
                  m
                  n
                  o
                  p
                  q
                  r
                  s
                  t
            & !z:u v w x y z
          | Out$"80 position flag [ failed"
          )
          out$80s
          (   26:?len
            & @( abcdefghijklmnopqrstuvwxyz
               : ?a [(20+-1*(!len+1)) [?pos ?z [-1
               )
            & !pos:20
            & !a:abcdefghijklmnopqrst
            & !z:uvwxyz
          | Out$"80s position flag [ failed"
          )
          out$81
          ( a b c:?x [0 f
          | !x:
          | Out$"81 position passed in match"
          )
          out$81s
          ( @(abc:?x [0 f)
          | !x:
          | Out$"81s position passed in stringmatch"
          )
          out$82
          ( :%
          | Out$"82 in match, the empty atom is not necessarily a nil atom"
          )
          out$82s
          ( @(:%)
          &   Out
            $ "82s in stringmatch, the empty atom is necessarily a nil atom"
          )
          out$83
          (   x y:(x ?a) ?
            & !a:
          |   Out
            $ "83 wrong handling of subpattern with same operator as main pattern in match."
          )
          out$83s
          (   @(xy:(x ?a) ?)
            & !a:
          |   Out
            $ "83s wrong handling of subpattern with same operator as main pattern in stringmatch."
          )
          out$84
          ( x y:(x ?) y
          |   Out
            $ "84 wrong handling of subpattern with same operator as main pattern in match."
          )
          out$84s
          ( @(xy:(x ?) y)
          |   Out
            $ "84s wrong handling of subpattern with same operator as main pattern in string match."
          )
          out$86
          ( a b:? b
          | Out$"86 match with pattern starting with wildcard fails."
          )
          out$86s
          ( @(ab:? b)
          |   Out
            $ "86s string match with pattern starting with wildcard fails."
          )
          out$88
          (   a b c d
            : `(?x ?y) (?z:c) ?
          |   :!x
            & a:!y
            & b:!z
          |   Out
            $ "88 match doesn't acknowledge that `(?x ?y) matches at most one element"
          )
          out$88s
          ( @(abcd:`(?x ?y) (?z:c) ?)
          |   :!x
            & a:!y
            & b:!z
          |   Out
            $ "88s stringmatch doesn't acknowledge that `(?x ?y) matches at most one element"
          )
          out$90
          (   a b c d e
            : (a `(?x ?y)) (?z:d) ?
          |   :!x
            & b:!y
            & c:!z
          |   Out
            $ "90 match doesn't acknowledge that `(?x ?y) matches at most one element"
          )
          ( @( abcde
             : (a `(?x ?y)) (?z:d) ?
             )
          |   :!x
            & b:!y
            & c:!z
          |   Out
            $ "90s stringmatch doesn't acknowledge that `(?x ?y) matches at most one element"
          )
          (   a b c d e
            : `(a ?x) (?z:d) ?
          | :!x&b:!z
          |   Out
            $ "92 match doesn't acknowledge that `(?x ?y) matches at most one element"
          )
          ( @(abcde:`(a ?x) (?z:d) ?)
          | :!x&b:!z
          |   Out
            $ "92s stringmatch doesn't acknowledge that `(?x ?y) matches at most one element"
          )
          (   foo:?y
            & a b c:(?x [0) (?y:b)
          | !x:&!y:a b c
          |   Out
            $ "93 match does not acknowledge that (?x [0) matches zero elements"
          )
          (   foo:?y
            & @(abc:(?x [0) (?y:b))
          | !x:&!y:abc
          |   Out
            $ "93s stringmatch does not acknowledge that (?x [0) matches zero elements"
          )
          (   a b c
            : (?x ?y [0) (?z:b)
          |   !x:!y:
            & !z:a b c
          |   Out
            $ "94 match does not acknowledge that (?x ?y [0) matches zero elements"
          )
          ( @(abc:(?x ?y [0) (?z:b))
          | !x:!y:&!z:abc
          |   Out
            $ "94s match does not acknowledge that (?x ?y [0) matches zero elements"
          )
          (     a b c d
              : (a ?x ?y [1) (?z:b) ?
            & !x:!y:
            & !z:b
          | Out$"95 match does not understand position"
          )
          (   @( abcd
               : (a ?x ?y [1) (?z:b) ?
               )
            & !x:!y:
            & !z:b
          | Out$"95s stringmatch does not understand position"
          )
          ( a:[0
          &   Out
            $ "96 expression after position is gone with the wind in match"
          )
          ( @(a:[0)
          &   Out
            $ "96s expression after position is gone with the wind in stringmatch"
          )
          ( a b:[0
          &   Out
            $ "97 expression after position is gone with the wind in match"
          )
          ( @(ab:[0)
          &   Out
            $ "97s expression after position is gone with the wind in stringmatch"
          )
          (   (g=a b c d e)
            &   !g
              :   (a&!g:a b c d e)
                  ?
          | Out$"98 subject is changed during match"
          )
          (   (g=abcde)
            & @(!g:(a&!g:abcde) ?)
          | Out$"98s string subject is changed during stringmatch"
          )
          ( B:~(? B ?) ?
          | Out$"99 lhs fails to match null string"
          )
          ( @(B:~(? B ?) ?)
          | Out$"99s lhs fails to match null string"
          )
          out$100
          (   a b:?x [1 ?g
            & a:!x
            & b:!g
          | Out$"100 Position does not work."
          )
          out$100s
          (   @(ab:?x [1 ?g)
            & a:!x
            & b:!g
          | Out$"100s Position does not work."
          )
          out$101
          ( :?x_?y
          & Out$"101 dummy operator in match problem."
          )
          out$101s
          ( @(:?x_?y)
          & Out$"101s dummy operator in stringmatch problem."
          )
          out$102
          ( a:?x_?y
          & Out$"102 dummy operator in match problem."
          )
          out$102s
          ( @(a:?x_?y)
          & Out$"102s dummy operator in stringmatch problem."
          )
          out$103
          (   a b c:?x_?y
            & !x:a
            & !y:b c
          | Out$"103 dummy operator in match problem."
          )
          out$103s
          (   @(abc:?x_?y)
            & !x:a
            & !y:bc
          | Out$"103s dummy operator in stringmatch problem."
          )
          out$104
          (:[0&Out$"104 position flag [ failed")
          out$104s
          ( @(:[0)
          | Out$"104s position flag [ failed"
          )
          out$105
          (   99:?endpos
            & a b c d:? ([-1:[?endpos) ?
            & !endpos:4
          | Out$"105 fetching last position failed in match"
          )
          out$105s
          (   99:?endpos
            & @(abcd:? ([-1:[?endpos) ?)
            & !endpos:4
          | Out$"105s fetching last position failed in stringmatch"
          )
          out$106
          (   99:?endpos
            & a b c d e:? ([-1:[?endpos)
            & !endpos:5
          | Out$"106 fetching last position failed in match"
          )
          out$106s
          (   99:?endpos
            & @(abcde:? ([-1:[?endpos))
            & !endpos:5
          | Out$"106s fetching last position failed in stringmatch"
          )
          out$107
          (     a b c d e f g h i j
              : ? [?p d ? [(2*!p) ?rem
            & !rem:g h i j
          | Out$"107 Something wrong with [position in match"
          )
          out$107s
          (   @(abcdefghij:? [?p d ? [(2*!p) ?rem)
            & !rem:ghij
          | Out$"107s Something wrong with [position in match"
          )
          out$108
          ( cos$x^2+sin$x^2:1
          | Out$"108 problem with goniometric functions"
          )
          out$109a
          (   @(03:% ?k)
            &   !k 1*!k 0+!k 1+!k
              : 3 3 3 4
          |   Out
            $ "109a Problem with recognising numbers in numeric strings starting with zeros."
          )
          out$109b
          (   @(003:% % ?k)
            &   !k 1*!k 0+!k 1+!k
              : 3 3 3 4
          |   Out
            $ "109b Problem with recognising numbers in numeric strings starting with zeros."
          )
          out$109c
          (   @(0/3:% % ?k)
            &   !k 1*!k 0+!k 1+!k
              : 3 3 3 4
          |   Out
            $ ( "109c Problem with recognising numbers in numeric strings starting with zeros."
                k
                !k
              )
          )
          out$109d
          (   @(4/03:% % % ?k)
            &   !k 1*!k 0+!k 1+!k
              : 3 3 3 4
          |   Out
            $ ( "109d Problem with recognising numbers in numeric strings starting with zeros."
                k
                !k
              )
          )
          out$110
          (0/7+3:3|Out$110)
          (0/0+2:2+0/0|Out$111)
          (1/0+1:1+1/0|Out$112)
          (0/0+0/0:2*0/0|Out$113)
          (0/7+0/7:0|Out$114)
          (00/7+00/7:2*00/7|Out$115)
          (den$00/7:den$00/7|Out$116)
          (den$0/7:7|Out$117)
          (~(0:>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
          )
          (   (HHH=falfkhal)
            & (fff=HHH)
            & glf$('(!.$fff)):(=?ggg)
            & '(/($ggg) ()):(=%?FFF ())
            & flg$('$FFF):(=?X.HHH)
            & put$('$X,MEM):"=/!"
          | Out$149b
          )
          out$150
          (   x^(y*(a+b))+x^(a*y+b*y)
            : 2*x^(y*(a+b))
          | Out$150
          )
          out$151
          (   fil$("FILE98741LFN.TXT",w)
            & fil$(,STR," \n\r\t")
            & fil$(,,,"Workers lost their jobs.")
            & fil$("FILE98741LFN.TXT",r)
            & fil$(,STR)
            & fil$(,,".!?,;"):(?str.?stop)
            & !str:Workers
            & !stop:
            & fil$("FILE98741LFN.TXT","a+")
            & fil$(,STR)
            &   fil
              $ ( 
                , 
                , cv
                , " of the world, unite! Proletarier aller Länder, vereinigt euch!"
                )
            & fil$("FILE98741LFN.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))
            & rmv$"FILE98741LFN.TXT"
          | Out$151
          )
          out$152
          (   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
          )
          out$153
          (   (ab=ab (|!ab))
            & @(aaaaaaabababababbaaaa:?x !ab b ?y)
            & !x:aaaaaa
            & !y:aaaa
          | Out$153
          )
          out$154
          (   "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
          )
          out$154b
          (   (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$154b
          )
          out$155
          (chu$2147483648&Out$155)
          out$156
          (       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
          )
          out$157
          (   @("   xyz  ":?a (>xx:?y) ?b)
            & !y:xy
          | Out$157
          )
          out$158
          (   @("   xyz  ":?a (>@xx:?y) ?b)
            & !y:y
          | Out$158
          )
          out$159
          (   @("   \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"
            & rmv$"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$181
          )
          out$182
          (   "Бу́ря мгло́ю не́бо кро́ет,"
            : ~<>"БУ́РЯ МГЛО́Ю НЕ́БО КРО́ЕТ,"
          | Out$182
          )
          out$183
          (     "Бу́ря мгло́ю не́бо кро́ет,"
              : "БУ́РЯ МГЛО́Ю НЕ́БО КРО́ЕТ,"
            & Out$183
          | 
          )
          out$184
          (   @( "abcБу́ря мгло́ю не́бо кро́ет,xyz"
               : ?A ~<>"бу́ря мгло́ю не́бо кро́ет," ?Z
               )
            & !A:abc
            & !Z:xyz
          | out$(A !A Z !Z)&Out$184
          )
          out$185
          (   @( "abcБу́ря мгло́ю не́бо кро́ет,xyz"
               : ?A ~<>"БУ́РЯ МГЛО́Ю НЕ́БО КРО́ЕТ," ?Z
               )
            & !A:abc
            & !Z:xyz
          | out$(A !A Z !Z)&Out$185
          )
          out$186
          (   @( "abcБу́ря мгло́ю не́бо кро́ет,xyz"
               : ?A "БУ́РЯ МГЛО́Ю НЕ́БО КРО́ЕТ," ?Z
               )
            & Out$186
          | 
          )
          out$187
          (   @(abcGjJjgdsJJHGfxyz:?A ~<>gjjjgdsjjhgf ?Z)
            & !A:abc
            & !Z:xyz
          | out$(A !A Z !Z)&Out$187
          )
          out$188
          (   @(abcGjJjgdsJJHGfxyz:?A ~<>GJJJGDSJJHGF ?Z)
            & !A:abc
            & !Z:xyz
          | out$(A !A Z !Z)&Out$188
          )
          out$189
          (   @(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
            & "Latin-1 ÄÇ"
            &   ( str$(chu$(x2d$C4) chu$(x2d$C7))
                , unicodekey1
                )
              : ?keyval2
            & "UTF-8 ÄÇ"
            &   ( str$(chu$(x2d$C5) chu$(x2d$C7))
                , unicodekey2
                )
              : ?keyval3
            & "UTF-8 ÅÇ"
            &   str$(chr$(x2d$E4) chu$(x2d$C7))
              : ?key4
            & "ISO ä UTF-8 Ç"
            & (myhash..insert)$!keyval1
            & (myhash..insert)$!keyval2
            & (myhash..insert)$!keyval3
            & (myhash..find)$!key4:?a
            & !a:!keyval2 !keyval1
            &   Out
              $ "194a Latin-1 followed by UTF-8: UTF-8 should not be recognized."
          | 
          )
          (   new$hash:?myhash
            & (myhash..ISO)$
            &   ( str$(chr$(x2d$C7) chr$(x2d$C4))
                . isokey
                )
              : ?keyval1
            & "Latin-1 ÇÄ"
            &   ( str$(chu$(x2d$C7) chu$(x2d$C4))
                , unicodekey1
                )
              : ?keyval2
            & "UTF-8 ÇÄ"
            &   ( str$(chu$(x2d$C7) chu$(x2d$C5))
                , unicodekey2
                )
              : ?keyval3
            & "UTF-8 ÇÅ"
            &   str$(chu$(x2d$C7) chr$(x2d$E4))
              : ?key4
            & "UTF-8 Ç ISO ä"
            & (myhash..insert)$!keyval1
            & (myhash..insert)$!keyval2
            & (myhash..insert)$!keyval3
            & (myhash..find)$!key4:?a
            & !a:!keyval2 !keyval1
          |   Out
            $ "194b UTF-8 followed by Latin-1: OK to fall back to Latin-1 after UTF-8"
          )
          ( 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 on 64-bit"
          | 
          )
          out$210
          (   x2d$10000000000000000
            & Out$"211 even on 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
          | Out$228
          )
          (   (a+c+f)+b+d+g
            : a+b+c+d+f+g
          | Out$229
          )
          ( i+-i*x:i+-i*x
          | Out$230
          )
          (i+-i:0|Out$231)
          ( i*x+-i:-i+i*x
          | Out$232
          )
          (   (i*x+i*z)+i*y
            : i*x+i*y+i*z
          | Out$233
          )
          (   i*y+i*x+i*z
            : i*x+i*y+i*z
          | Out$234
          )
          ( i*x+3*i*x:4*i*x
          | Out$235
          )
          ( 3*i*x+i*x:4*i*x
          | Out$236
          )
          ( -i*x+3*i*x:2*i*x
          | Out$237
          )
          ( -i*x+3*-i*x:4*-i*x
          | Out$238
          )
          ( 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:?cc:?d
            & :?a+?b^?cc+?d
            & 0:!a:!b
            & 1:!cc
            & :!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
              )
            &   (   !speed:slow
                  &   flt$(pi$800,1120)
                    : "3.1415926535897932384626433832795028841971693993751058209749445923078164062862089986280348253421170679821480865132823066470938446095505822317253594081284811174502841027019385211055596446229489549303819644288109756659334461284756482337867831652712019091456485669234603486104543266482133936072602491412737245870066063155881748815209209628292540917153643678925903600113305305488204665213841469519415116094330572703657595919530921861173819326117931051185480744623799627495673518857527248912279381830119491298336733624406566430860213949463952247371907021798609437027705392171762931767523846748184676694051320005681271452635608277857713427577896091736371787214684409012249534301465495853710507922796892589235420199561121290219608640344181598136297747713099605187072113499999983729780499510597317328160963185950244594553469083026425223082533446850352619311881710100031378387528865875332083814206171776691473035982534904287554687311595628638823537875937519577818577805321712268066130019278766111959092164201989380952572010654858632788659361533818279682303019520353018529689957736225994138912497217752834791315155748572424541506959E0"
                |   
                  &   flt$(pi$8,11)
                    : ?PI
                    : "3.14159265359E0"
                )
              : ?pI
            & out$!pI
          | 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
          )
          out$461
          ( (refac=.fct$(1+!arg+-1))
          | Out$461
          )
          out$462
          ( 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
          )
          out$463
          (     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
          )
          out$464
          (   refac$((2+a)*(3+b)*(5+c))
            :   30
              * (1+1/5*c)
              * (1+1/3*b)
              * (1+1/2*a)
          | Out$464
          )
          out$465
          (     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
          )
          out$466
          (     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
          )
          out$467
          (     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
          )
          out$468
          (     refac
              $ (h*t+h*s*p+h*t^2+t*s)
            : h*t+h*t^2+h*p*s+s*t
          | Out$468
          )
          out$469
          (   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
          (   0:?n
            & 745:?depth
            & "Microsoft VC++ 2008
            	32 bit:		16056 debug: 1119
                64 bit:	     5384
                Borland BC5			 8618
                gcc 4.1.2 20080704	23807
               Microsoft VC++ 2019
                32 bit:           debug: 742"
            & ( W
              =   whl
                ' (1+!n:?n:~>!depth&!W)
              )
            &   out
              $ ( str
                $ ( "Testing stack depth "
                    !depth
                    " (This test may cause stack overflow. In that case, set depth to a lower number and report.)"
                  )
                )
            & !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
          | Out$504
          )
          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)
          (   (=A B)
            : ?G1
            : (=(A&X:?(G1.)) B)
            : (=X)
          | Out$530
          )
          (   (=A B):?G2
            &   !G2
              : ( 
                = (A&X:?(G2.)) B
                )
              : (=X)
          | Out$531
          )
          (   (G3==A B)
            &   !G3
              : ( 
                = (A&X:?(G3.)) B
                )
              : (=A B)
            & "The value of G3, =A B, is not evaluated. When !G3 is evaluated,
               a copy of the = is created, with the READY flag set.
               The assignment X:?(G3.) assigns to the original, unevaluated,
               object, dereferencing A, B and the operator connecting them."
            & A
            & !loss
            & "blank operator"
            & !loss
            & B
            & !loss
          | Out$532
          )
          (   (a=b=127)
            & (.):_
            & !(a_b):127
          | Out$533
          )
          (   (a=345)
            & !(e\L(e^a)):345
          | Out$534
          )
          (   (=):_
            & a_b
            & !a:b
          | Out$535
          )
          (   (a=123)
            & !(a\D(1/2*a^2)):123
            & Out$536
          | 
          )
          (   (a:b)\D(1/2*a^2)
            & Out$537
          | 
          )
          ( (a:b)\La&Out$538
          | 
          )
          ( a\L(a:b)&Out$539
          | 
          )
          ( (a=6876)&!(a^1):6876
          | Out$540
          )
          ( (a:b)^3&Out$541
          | 
          )
          ( 4^(a:b)&Out$542
          | 
          )
          ( (a=7)&!(a*1):7
          | Out$543
          )
          (   (a=776)
            & !(-1*b+a+b):776
          | Out$544
          )
          (   (a=38)
            & :?n
            & !(() a !n):38
          | Out$545
          )
          (   (a=b=j)
            & !(a*1,b^1):j
            & Out$546
          | 
          )
          ( (ca.bet=78)&Out$547
          | 
          )
          ( (a=b)&/!('$a):b
          | Out$548
          )
          (   (OPOS==ffdej)
            & 57:?!(1+1&OPOS)
            & !OPOS:(=57)
            & !loss
          | Out$549
          )
          out$550
          (   (OPOS==huiksl)
            & 53:?!OPOS
            & !OPOS:(=53)
            & !loss
          | Out$550
          )
          (   (PPOS==dabra)
            &   a b c d
              : ? [?!(11+2&PPOS)
            & !PPOS:(=4)
          | Out$551
          )
          (   (PPOS==abracad)
            & a b c d:? [?!PPOS
            & !PPOS:(=4)
          | Out$552
          )
          (   (aa=!bb)
            & (bb=cc)
            & (cc=dd)
            & (dd=ee)
            & (ee=ff)
            & !aa:cc
          | Out$553
          )
          (   (aa=!!bb)
            & (bb=cc)
            & (cc=dd)
            & (dd=ee)
            & (ee=ff)
            & !aa:dd
          | Out$554
          )
          (   (aa=!bb)
            & (bb=cc)
            & (cc=dd)
            & (dd=ee)
            & (ee=ff)
            & !!aa:dd
          | Out$555
          )
          (   (aa=!!bb)
            & (bb=cc)
            & (cc=dd)
            & (dd=ee)
            & (ee=ff)
            & !!aa:ee
          | Out$556
          )
          ( x\D(10\Lx):x^-1*e\L10^-1
          | Out$557
          )
          (   (A==B)
            & (B=k)
            & a b c d:?!!A
            & !B:a b c d
            & (B=k)
            & a b c d:? [?!!A
            & !B:4
            & !A:(=B)
          | Out$558
          )
          (   1100:?I
            & tbl$(AA,!I)
            & ( OBJ
              = 
              = (=a) (=b) (=c)
              )
            &   !OBJ
              : ( 
                =   %
                    %
                    ( ?mfd
                    : ?ngh
                    : ?ofg
                    : ?pbd
                    : ?qgg
                    : ?rcr
                    : ?sfi
                    )
                )
            &   whl
              ' ( !I+-1:~<0:?I
                &   !OBJ
                  : (=(% %:?(!I$AA)) ?)
                )
            & tbl'(AA,0)
            &   !OBJ
              : ( 
                = (=a) (=b) (=c)
                )
          | Out$559
          )
          (   d2x$(utf$(low$(chu$(x2d$110000))))
            : 110000
          | Out$560
          )
          (   1100:?I
            & tbl$(AA,!I)
            & new$hash:?H
            & '($H ()$H ()$H):?OBJ
            &   !OBJ
              : ( 
                =   %
                    %
                    ( ?mfd
                    : ?ngh
                    : ?ofg
                    : ?pbd
                    : ?qgg
                    : ?rcr
                    : ?sfi
                    )
                )
            &   whl
              ' ( !I+-1:~<0:?I
                &   !OBJ
                  : (=(% %:?(!I$AA)) ?)
                )
            & (1000$AA..insert)$(kaal.2500)
            & tbl'(AA,0)
            &   !OBJ
              : ( 
                =   (=hash)
                    (=hash)
                    (=hash)
                )
            & (H..find)$kaal:(kaal.2500)
          | Out$561
          )
          (       x2d
                $ ( !speed:slow&110001
                  | 10001
                  )
              : ?ii
            & :?exceptions
            &   whl
              ' ( !ii+-1:~<0:?ii
                & chu$!ii:?kk
                & (   low$!kk:!kk
                    & low$(upp$!kk):!kk
                  |   upp$!kk:!kk
                    & upp$(low$!kk):!kk
                  |     ( !ii
                        . !kk
                        . low$!kk
                        . upp$!kk
                        . low$(upp$!kk)
                        . upp$(low$!kk)
                        )
                        !exceptions
                    : ?exceptions
                  )
                )
            &   !exceptions
              :   (181.µ.µ.Μ.μ.Μ)
                  (304.İ.i.İ.i.I)
                  (305.ı.ı.I.i.I)
                  (383.ſ.ſ.S.s.S)
                  (453.Dž.dž.DŽ.dž.DŽ)
                  (456.Lj.lj.LJ.lj.LJ)
                  (459.Nj.nj.NJ.nj.NJ)
                  (498.Dz.dz.DZ.dz.DZ)
                  (837.ͅ.ͅ.Ι.ι.Ι)
                  (962.ς.ς.Σ.σ.Σ)
                  (976.ϐ.ϐ.Β.β.Β)
                  (977.ϑ.ϑ.Θ.θ.Θ)
                  (981.ϕ.ϕ.Φ.φ.Φ)
                  (982.ϖ.ϖ.Π.π.Π)
                  (1008.ϰ.ϰ.Κ.κ.Κ)
                  (1009.ϱ.ϱ.Ρ.ρ.Ρ)
                  (1012.ϴ.θ.ϴ.θ.Θ)
                  (1013.ϵ.ϵ.Ε.ε.Ε)
                  (7296.ᲀ.ᲀ.В.в.В)
                  (7297.ᲁ.ᲁ.Д.д.Д)
                  (7298.ᲂ.ᲂ.О.о.О)
                  (7299.ᲃ.ᲃ.С.с.С)
                  (7300.ᲄ.ᲄ.Т.т.Т)
                  (7301.ᲅ.ᲅ.Т.т.Т)
                  (7302.ᲆ.ᲆ.Ъ.ъ.Ъ)
                  (7303.ᲇ.ᲇ.Ѣ.ѣ.Ѣ)
                  (7304.ᲈ.ᲈ.Ꙋ.ꙋ.Ꙋ)
                  (7835.ẛ.ẛ.Ṡ.ṡ.Ṡ)
                  (7838.ẞ.ß.ẞ.ß.ß)
                  (8126.ι.ι.Ι.ι.Ι)
                  (8486.Ω.ω.Ω.ω.Ω)
                  (8490.K.k.K.k.K)
                  (8491.Å.å.Å.å.Å)
            & !ii:0
          | Out$(562 !ii exceptions !exceptions)
          )
          (   100000:?ii
            & :?buf
            &   whl
              ' ( !ii+-1:~<0:?ii
                & !ii !buf:?buf
                )
            & str$!buf:?buf
            & put$(!buf,"BUFA76DLW.TST",NEW)
            & get$"BUFA76DLW.TST":?buf2
            & rmv$"BUFA76DLW.TST"
            & !buf:!buf2
          | Out$563
          )
          (       str
                $ ( afhadgkfjhgadskfjhgadskjhfgadskjhfgasdkjhfgadksjhgf
                    \n
                    hjhkhfsadlfkjasdf
                  )
              : ?kk
            & lst$(kk,"HAAFHDLAG.GAN",NEW)
            & rmv$"HAAFHDLAG.GAN"
          | Out$564
          )
          (   (S="str$(\\a \\b \\v \\n \\f \\r a\\Lb \\t (=\\D))")
            & get$(!S,MEM):?T
            & lst$(T,MEM,LIN):?P
            & @(!P:"T=\"\\a\\b\\v\\n\\f\\ra\\Lb\\t(=\\D)\";" ?)
          | Out$565
          )
          (   (g=12345\t678)
            & @(lst$(g,MEM):"g=" ? "12345\\t678;" ?)
            & (g="12345	67890")
            & @(lst$(g,MEM):"g=" ? "\"12345	67890\";" ?)
          | Out$566
          )
          (   `/#<>%@?!(=b):?h
            & flg$('$h):(=?X.b)
            & @(lst$(X,MEM,LIN):"X=`/#<>%@?" ?)
          | Out$567
          )
          (7^-13:1/96889010407|Out$568)
          (1/49^1/2:1/7|Out$568)
          ( 1/50^1/2:1/5*2^-1/2
          | Out$569
          )
          ( 1/51^1/2:3^-1/2*17^-1/2
          | Out$570
          )
          ( 1/52^1/2:1/2*13^-1/2
          | Out$571
          )
          (1/53^1/2:53^-1/2|Out$572)
          (   tbl$(ajfhas,0)
            & 2$~ajfhas
            & Out$573
          | 
          )
          (   tbl$(aa,10)
            & 0:?i
            &   whl
              ' ( !i:<10:?(!i$aa)
                & !i+1:?i
                )
            & :?PP
            &   whl
              ' ( !i+-1:>-20:?i
                & !(!i$aa) !PP:?PP
                )
            &   !PP
              :   1
                  2
                  3
                  4
                  5
                  6
                  7
                  8
                  9
                  0
                  1
                  2
                  3
                  4
                  5
                  6
                  7
                  8
                  9
                  0
                  1
                  2
                  3
                  4
                  5
                  6
                  7
                  8
                  9
            & tbl$(aa,0)
          | Out$574
          )
          (5$(a.k)&Out$575|)
          (   ?'a:?h
            & flg$('$h):(=?X.a)
            & @(lst$(X,MEM,LIN):"X=?" ?)
          | Out$576
          )
          (':(=)|Out$577)
          (   tbl$(poiuyt,0)
            & new$(poiuyt,678)
            & Out$578
          | 
          )
          (   new$(hash,-1000)
            & new$(hash,0)
            & new$(hash,12345)
            & new$(hash,9123456789091234567890)
          | Out$579
          )
          (sim$a&Out$580|)
          (sim$(aaa aa):4/5|Out$581)
          (sim$(aaa (aa.i))&Out$582)
          (tbl$10&Out$583|)
          (sys$&Out$584|)
          (sys$echo|Out$585|)
          ( arg$:?AArg&out$!AArg
          | 
          )
          (   get$(":?adg;2 !adg:?adg;1 !adg:?adg;",MEM)
            & 1 2:!adg
          | Out$586
          )
          (     upp
              $ (a,DOS "has only effect if CODEPAGE850 is #defined")
            : A
          | Out$587
          )
          ( upp$(a b,DOS)&Out$588
          | 
          )
          (     low
              $ (A,DOS "has only effect if CODEPAGE850 is #defined")
            : a
          | Out$589
          )
          ( low$(A B,DOS)&Out$590
          | 
          )
          (rev$ab:ba|Out$591)
          (rev$(a b)&Out$592|)
          ( glf$(=?.?exp)&Out$593
          | 
          )
          (   ( glf$(=~.exp):(=?NEXP)
              | &Out$594
              )
            & !NEXP
            & Out$595
          | 
          )
          ( flg$(=~exp):(=?f.?o)
          & (!o:exp|Out$596)
          & (!f&Out$597|)
          )
          (   flg$(=~<exp):(=?f.?o)
            & !f
            & !o:exp
          | Out$598
          )
          (asc$(a b)&Out$599|)
          ( chr$(50 51)&Out$600
          | 
          )
          (chr$50a&Out$601|)
          (chr$350&Out$602|)
          (   alc$100:?p
            & pok$(!p+4,4000,2)
            & pee$(!p+4,2):4000
            & fre$!p
          | Out$603
          )
          (   tbl$(notanobject,0)
            & new$notanobject
            & Out$604
          | 
          )
          (   rmv$"FOPEN.TST"
            & ( rmv$"FOPEN.TST":ENOENT
              | Out$605
              )
            & ( get$"FOPEN.TST"&Out$606
              | 
              )
            & ( get$("FOPEN.TST",STR)&Out$607
              | 
              )
          | Out$608
          )
          ( get$(hel,3.STR)&Out$609
          | 
          )
          (   rmv$(REMOVETEST1,REMOVETEST2)
            & Out$610
          | 
          )
          (   ren$(RENAMETEST1 RENAMETEST2 RENAMETEST3)
            & Out$611
          | 
          )
          ( ren$(REMOVETEST1,RENAMETEST1):ENOENT
          | Out$612
          )
          ( glf$(=!,l)&Out$613
          | 
          )
          (   lst$(tay,"TAYTEST.TST",NEW)
            & @(get$("TAYTEST.TST",STR):"tay=\n  f," ?)
            & rmv$"TAYTEST.TST"
          | Out$614
          )
          (   lst$(tay,"TAYTEST.TST",NEW)
            &   get$("TAYTEST.TST",VAP)
              : t a y "=" \n " " " " f "," ?
            & rmv$"TAYTEST.TST"
          | Out$615
          )
          (   lst$(tay,"TAYTEST.TST",NEW)
            & @(get$("TAYTEST.TST",STR,VAP):"t a y = " ?)
            & rmv$"TAYTEST.TST"
          | Out$616
          )
          (     put
              $ ("{comment line 1
{comment line 2}
}","TAYTEST.TST",NEW)
            & put$("\"sting line 1
string line 2\"
;","TAYTEST.TST",APP)
            & lst$(tay,"TAYTEST.TST",APP)
            & get$("TAYTEST.TST",ECH):
            & "New behaviour! 20181026"
          | Out$617
          )
          (   chu$200:?x
            & str$("a " !x):?ee
            & get$(!ee,MEM):a !x
          | Out$618
          )
          (   tbl$(dagj,0)
            & !dagj a:?dagj a
            & Out$619
          | 
          )
          (   (a=!b)
            & (b=d*g)
            & 6:?!!a
            & Out$620
          | 
          )
          (   (b=ads)
            & (ads=lau)
            & (lau=1010)
            & 763:?!!(=!b)
            & !ads:lau
            & !b:ads
            & !lau:763
          | Out$621
          )
          (   (abcd=bopt=cyt.dip)
            & (cyt=dip=egs)
            & foo:?!!(abcd.bopt)
            & !egs:foo
          | Out$622
          )
          (   (abcd=bopt=cyt*dip)
            & (cyt=dip=egsae)
            & foo:?!!(abcd.bopt)
            & Out$623
          | 
          )
          (   (ABCD=BOPT=CYT*DIP)
            & (CYT=DIP=EGSAE)
            & @(FOO:?!!(ABCD.BOPT))
            & Out$624
          | 
          )
          ( @(12/45/67:#)&Out$625
          | 
          )
          (   @(abc-120def:abc ?n def)
            & !n+7:7+"-120"
          | Out$626
          )
          (   @(abc-120def:abc #?n def)
            & !n+7:-113
          | Out$627
          )
          (   @(abc-120def:abc #?(fgh ghg) def)
            & Out$628
          | 
          )
          ( utf$(chr$254)&Out$629
          | 
          )
          (   100:?asciival
            &   utf
              $ ( str
                $ ( chr$(x2d$c0+div$(!asciival.64))
                    chr$(x2d$80+mod$(!asciival,64))
                  )
                )
            & Out$630
          | 
          )
          (   d2x$(utf$(upp$(chu$(x2d$777777))))
            : 777777
          | Out$631
          )
          (   d2x$(utf$(upp$(chu$(x2d$77777777))))
            : 77777777
          | Out$632
          )
          (@(an23:~%a n23)|Out$633)
          (@(an23:~/a n23)|Out$634)
          (@(123:~/#1 23)|Out$635)
          (@(1/23:/1/2 3)|Out$636)
          (@(a-210:? -1 0)|Out$637)
          ( @(a-210:? #-1 0)&Out$638
          | 
          )
          (@(a210:? <2 0)|Out$639)
          (   @(a230:?xx <2 0)
            & !xx:a23
          | Out$640
          )
          ( @(20:?xx >@2 0)&Out$641
          | 
          )
          (   @(3/340:?xx #>3 0)
            & !xx:3/
          | Out$642
          )
          ( tbl$(A,13/2)&Out$643
          | 
          )
          (   tbl$(A,20)
            & tbl$(A,-19)
            & tbl$(A,-1)
          | Out$644
          )
          (   tbl$(A,20)
            & tbl$(A,-21)
            & Out$645
          | 
          )
          ( tbl$(A B,13/2)&Out$646
          | 
          )
          (   tbl$(A,123456789012345678901234567890)
            & Out$647
          | 
          )
          (   new$hash:?myhash
            & (myhash..ISO)$
            & (ærinde.isokey):?keyval1
            & (ØVE,unicodekey1):?keyval2
            & (Århus,unicodekey2):?keyval3
            & (myhash..insert)$!keyval1
            & (myhash..insert)$!keyval2
            & (myhash..insert)$!keyval3
            & (myhash..find)$ÆRINDE:?a
            & !a:!keyval1
            & (myhash..find)$øve:?a
            & !a:!keyval2
            & (myhash..find)$åRHUS:?a
            & !a:!keyval3
          | Out$648
          )
          (   new$hash:?myhash
            & put$(,"LISTHASH.TXT",NEW)
            & ( listHash
              =   LH N n
                .   :?LH
                  & 0:?n
                  & !arg:(?N.?arg)
                  &   (!arg..forall)
                    $ ( 
                      =   
                        .   (1+!n:?n.!arg) !LH
                          : ?LH
                      )
                  &   put
                    $ (str$(\n\n !N ":\n"),"LISTHASH.TXT",APP)
                  & lst$(LH,"LISTHASH.TXT",APP)
              )
            & (myhash..ISO)$
            & 240:?I
            &   whl
              ' ( !I+1:<1240:?I
                & (myhash..insert)$(chu$!I.!I)
                )
            & listHash$(FRESH.myhash)
            & ( hashcount
              =   cnt
                .   0:?cnt
                  &   (myhash..forall)
                    $ ( 
                      =   k v
                        .   whl
                          ' ( !arg:(?k.?v) ?arg
                            & 1+!cnt:?cnt
                            )
                      )
                  & !cnt
              )
            & hashcount$:?cnt1
            & 0:?cnt2
            & :?KV
            &   (myhash..forall)
              $ ( 
                =   k v
                  .   whl
                    ' ( !arg:(?k.?v) ?arg
                      & 1+!cnt2:?cnt2
                      & (   mod$(!v.10):0
                          & (myhash..remove)$!k:?kv
                          & (!kv.!KV):?KV
                          & (myhash..insert)$(low$!k.!v)
                          & ( upp$!k:low$!k
                            | (myhash..insert)$(upp$!k.!v)
                            )
                        | 
                        )
                      )
                )
            & listHash$(UPLOW.myhash)
            & ( listcount
              =   cnt kv KV k v
                .   0:?cnt
                  &   whl
                    ' ( !arg:(?kv.?arg)
                      &   whl
                        ' ( !kv:(?k.?v) ?kv
                          & 1+!cnt:?cnt
                          )
                      )
                  & !cnt
              )
            & listcount$!KV:?cnt3
            & hashcount$:?cnt4
            & 0:?cnt5
            & :?KV
            &   (myhash..forall)
              $ ( 
                =   k v
                  .   whl
                    ' ( !arg:(?k.?v) ?arg
                      & 1+!cnt5:?cnt5
                      & (   ( mod$(!v.2):0
                            | mod$(!v.3):0
                            | mod$(!v.5):0
                            )
                          & (myhash..remove)$!k:?kv
                          & (!kv.!KV):?KV
                        | 
                        )
                      )
                )
            & listHash$(mod235.myhash)
            & listcount$!KV:?cnt6
            & hashcount$:?cnt7
            & !cnt1:!cnt2:999
            & !cnt4:1001
            & !cnt3:165
            & !cnt5:624
            & !cnt6:584
            & !cnt6+!cnt7:!cnt4
          |   Out
            $ (   649a
                  cnt1
                  !cnt1
                  cnt2
                  !cnt2
                  cnt3
                  !cnt3
                  cnt4
                  !cnt4
                  cnt5
                  !cnt5
                  cnt6
                  !cnt6
                  "cnt6+cnt7"
                  !cnt6+!cnt7
                  "see LISTHASH.TXT"
              & 
              )
          )
          (   (myhash..casesensitive)$
            & listHash$(casesensitive.myhash)
            & hashcount$:?cnt7b
            & !cnt7:!cnt7b
          | Out$(649b cnt7 !cnt7 cnt7b !cnt7b)
          )
          (   0:?cnt8
            & :?KV
            &   (myhash..forall)
              $ ( 
                =   k v
                  .   whl
                    ' ( !arg:(?k.?v) ?arg
                      & 1+!cnt8:?cnt8
                      & (   ( mod$(!v.7):0
                            | mod$(!v.11):0
                            | mod$(!v.13):0
                            | mod$(!v.17):0
                            | mod$(!v.19):0
                            | mod$(!v.23):0
                            )
                          & (myhash..remove)$!k:?kv
                          & (!kv.!KV):?KV
                        | 
                        )
                      )
                )
            & listHash$(mod7-23.myhash)
            & !cnt8:313
          | Out$(649c cnt8 !cnt8)
          )
          (   listcount$!KV:?cnt9
            & !cnt9:119
          | Out$(649d cnt9 !cnt9)
          )
          (   hashcount$:?cnt10
            & !cnt10:298
          | Out$(649e cnt10 !cnt10)
          )
          (   0:?cnt11
            &   (myhash..forall)
              $ ( 
                =   k v
                  .   whl
                    ' ( !arg:(?k.?v) ?arg
                      & 1+!cnt11:?cnt11
                      & (myhash..remove)$!k:?kv
                      & (!kv.!KV):?KV
                      )
                )
            & listHash$(remainder.myhash)
            & listcount$!KV:?cnt12
            & hashcount$:?cnt13
            & !cnt10:298
            & !cnt11:164
            & !cnt12:283
            & !cnt13:134
            & !cnt13+!cnt11:!cnt10
            & rmv$"LISTHASH.TXT"
          |   Out
            $ ( 649f
                cnt10
                !cnt10
                cnt11
                !cnt11
                cnt12
                !cnt12
                cnt13
                !cnt13
                "cnt13+cnt11-cnt10"
                !cnt13+!cnt11+-1*!cnt10
              )
          )
          ( !(+(a=1).a)&Out$650
          | 
          )
          (     ( 
                = asdf.tbl$(asdf,0)&42
                )
              $ 
            : 42
          | Out$651
          )
          (   @("ab.cde":? (?a.?b) ?)
            & Out$652
          | 
          )
          (   @("ab.cde":? (".":(?a.?b)) ?)
            & Out$653
          | 
          )
          (   @("ab.cde":? ((?a.?b)&f) ?)
            & Out$654
          | 
          )
          (   a b c:? [?!ghgjimpossible c
            & Out$655
          | 
          )
          (   a b c d:? [?(1:2)
            & Out$656
          | 
          )
          (   (p=a,b)
            & a b c:? [?!p
            & Out$657
          | 
          )
          (a b c:? [?|Out$658)
          ( a b c:? [<2&Out$659
          | 
          )
          ( a b c:? [~>2&Out$660
          | 
          )
          (a b c:? [~>3|Out$661)
          (a b c:? [~>4|Out$662)
          ( a b c:? [~<13&Out$663
          | 
          )
          ( a b c:? [>5&Out$664
          | 
          )
          ( a b c:? [2&Out$665
          | 
          )
          (   @(abc:?xva ~% c)
            & !xva:ab
          | Out$666
          )
          (   tbl$(ggg,0)
            & tbl$(ggg,3100)
            & 0:?i
            & (Obj==)
            & new$Obj:?obj
            &   whl
              ' ( 1+!i:?i:<3100
                & !obj:?(!i$ggg)
                )
          | Out$667
          )
          (   tbl$(ggg,0)
            & tbl$(ggg,3100)
            & 0:?i
            & (Obj===)
            &   whl
              ' ( 1+!i:?i:<3100
                & !Obj:?(!i$ggg)
                )
          | Out$668
          )
          (   (f=?(a b))
            & lst$(f,MEM):?k
            & @(!k:? "?(" ?)
          | Out$669
          )
          ( @(a:?(1:2))&Out$670
          | 
          )
          (   (cof=nih)
            & @(a:?!cof)
            & !nih:a
          | Out$671
          )
          (   (cof==h)
            & @(gj:?!cof)
            & !cof:(=gj)
          | Out$672
          )
          (   (cof=(.).a)
            & @(abc:?!cof)
            & Out$673
          | 
          )
          (   (cof=(.).a)
            & a b c:?!cof
            & Out$674
          | 
          )
          (   (cof=(.).a)
            & @(abc:!!cof)
            & Out$673
          | 
          )
          ( @(ab:?*?)&Out$674
          | 
          )
          ( @(ab:? (%&`))
          | Out$675
          )
          ( @(abc:? (%@ %@|%@ [<1) ?)
          | Out$676
          )
          ( a:?(1:2)&Out$677
          | 
          )
          (   (cof=(.).a)
            & a b c:!!cof
            & Out$677
          | 
          )
          ( new$hash:?_?&Out$678
          | 
          )
          (   ab:? (%&`(1:2))
            & Out$679
          | 
          )
          (   a b c
            : ? (%@ %@|%@ [<1) ?
          | Out$680
          )
          (   a b c:? (=.`~)$() ?
            & Out$681
          | 
          )
          ( `@(a:b)&ok
          | Out$682
          )
          (   `(1:1|ok):?h
            & flg$('$h):(=?X.1)
            & @(lst$(X,MEM,LIN):"X=`" ?)
          | Out$683
          )
          (   (a=)
            & (b=567)
            & '($a)$b:(=567)
          | Out$684
          )
          (   (a=789)
            & put$('$($($a)),MEM):"=$789"
          | Out$685
          )
          (   (b=87687)
            &     put
                $ (/('(a.'$($($a))))$b,MEM)
              : "=87687"
          | Out$686
          )
          (   (d=567)
            & /('(a.$a))'!d:567
          | Out$687
          )
          (   /('(a.$a))'(ppp=67869)
            & !ppp:67869
          | Out$688
          )
          ( /('(a.($a)$a))$:
          | Out$689
          )
          (   a+b:%_%
            & /('(a.$($a)_($a)))$3:6
          | Out$690
          )
          (   (=):?_?
            &   /('(a.$_($a+x+$a)))$3
              : (=3+x+3)
          | Out$690
          )
          (   99999999999999999/10000000001+1
            : 100000010000000000/10000000001
          | Out$691
          )
          (   100000000000000000/10000000001+1
            : 100000010000000001/10000000001
          | Out$692
          )
          (     100000010000000001/10000000001
              + -100000010000000000/10000000001
            : 1/10000000001
          | Out$693
          )
          (   99999999999999999999999999999999/100000000000000000000001+1
            : 9090909100000000000000000000000/9090909090909090909091
          | Out$694
          )
          (   99999999999999999999999999999999/10000000000000001+1
            : 10000000000000000
          | Out$695
          )
          ( @(12/35:<12/35 ())&Out$696
          | 
          )
          ( @(1235:>1235 ())&Out$697
          | 
          )
          ( @(1235:~1235 ())&Out$698
          | 
          )
          ( @(246/24:<123/12 ())&Out$699
          | 
          )
          (@(246/24:<124/12 ())|Out$700)
          (   @("-123":#>-12 (|))
            & Out$701
          | 
          )
          (   @("-123":~<-12 (|))
            & Out$702
          | 
          )
          ( @("-123":~<-123 (|))
          | Out$703
          )
          (   @(123/2:~<123 (|))
            & Out$704
          | 
          )
          ( @(123/2:~>123 (|))
          | Out$705
          )
          ( @(123:~>123 (|))
          | Out$706
          )
          (   @(124:~>123 (|))
            & Out$707
          | 
          )
          ( @(xyz-ab:?x -ab)&!x:xyz-
          | Out$708
          )
          ( @(xyz-12:?x -12)&!x:xyz
          | Out$709
          )
          (   @(123/45b:~<24/2 ?l)
            & !l:3/45b
          | Out$710
          )
          ( @("-2/1b":~<-2 @?l)&!l:b
          | Out$711
          )
          (@(a:~<1)|Out$712)
          (@(1:~<b)&Out$713|)
          (@(:~<b)&Out$714|)
          (@(c:~>b)&Out$715|)
          (@(a:~>b)|Out$716)
          (@(b:~>b)|Out$717)
          ( (~(a|b)|c):c
          | Out$718
          )
          (~'m&Out$719|)
          (   ~(a&~'m):?h
            & flg$('$h):(=?X.m)
            & @(lst$(X,MEM,LIN):"X=~" ?)
          | Out$720
          )
          (   tbl$(GHJK,10)
            & mem$EXT:? (GHJK.9.0) ?
            & tbl$(GHJK,0)
          | Out$721
          )
          (   ("a b"=23)
            & lst$("a b",LIN,MEM):"\"a b\"=23;\n"
          | Out$722
          )
          (lst$(out,sgn)|Out$723)
          (   fil$("A.FIL",w)
            & fil$("B.FIL",w)
            & fil$("C.FIL",w)
            & rmv$"C.FIL":?Rmv
            & (   !Rmv:EACCES
                & ( fil$(,SET,-1)&Out$725a
                  | 
                  )
                & (rmv$"C.FIL":0|Out$726a)
              |   !Rmv:0
                & ( fil$(,SET,-1)&Out$725b
                  | 
                  )
                & ( rmv$"C.FIL":ENOENT
                  | Out$726b
                  )
              | Out$(str$("724: rmv returns [" !Rmv "]"))
              )
            & ( fil$("B.FIL",SET,-1)&Out$727
              | 
              )
            & (rmv$"B.FIL":0|Out$728)
            & ( fil$(,SET,-1)&Out$729
              | 
              )
            & (rmv$"B.FIL":ENOENT|Out$730)
            & ( fil$("A.FIL",SET,-1)&Out$731
              | 
              )
            & (rmv$"A.FIL":0|Out$732)
            & (rmv$"A.FIL":ENOENT|Out$733)
          | Out$734
          )
          (   (fil$("A.FIL",w)|Out$735)
            & (fil$("B.FIL",w)|Out$736)
            & (fil$("C.FIL",w)|Out$737)
            & ( fil$("B.FIL",SET,-1)&Out$738
              | 
              )
            & ( fil$("C.FIL",SET,-1)&Out$739
              | 
              )
            & ( fil$("A.FIL",SET,-1)&Out$740
              | 
              )
            & (rmv$"A.FIL":0|Out$741)
            & (rmv$"B.FIL":0|Out$742)
            & (rmv$"C.FIL":0|Out$743)
          | Out$744
          )
          out$745
          (   (fil$("AAA.FIL",w)|Out$745)
            & (   put$(test,"AAA.FIL",APP)
                & Out$746
              | 
              )
            & fil$("AAA.FIL",SET,-1)
          | rmv$"AAA.FIL"
          )
          out$747
          (get$klaa/bra&Out$747|)
          (get$"klaa\\bra"&Out$748|)
          (get$"klaa:bra"&Out$749|)
          (get$"k:laabra"&Out$750|)
          (get$"/klaa/bra"&Out$751|)
          (get$"\\klaa/bra"&Out$752|)
          ( 0:?n
          &   whl
            ' ( 1+!n:~>1000:?n
              & str$(MANYA !n ".TST"):?NM
              & fil$(!NM,w)
              )
          & ( !n:1000
            | Out$(str$("753a n=" !n))
            )
          &   whl
            ' ( str$(MANYA !n ".TST"):?NM
              & (fil$(!NM,SET,-1)|)
              & rmv$!NM:0
              & !n+-1:>0:?n
              )
          & ( !n:1
            | Out$(str$("753b n=" !n))
            )
          & 0:?n
          &   whl
            ' ( 1+!n:~>1000:?n
              & str$(MANYA !n ".TST"):?NM
              & rmv$!NM:(0|ENOENT)
              )
          & ( !n:1000
            | Out$(str$("753c n=" !n))
            )
          )
          (   fil$("FILE98741LFN.TXT",w)
            & fil$(,CHR)
            & fil$(,,,xyz)
            & fil$(,CHR,3)
            & fil$(,,,abcdefghi)
            & fil$(,CHR,3,2)
            & fil$(,,,1234567890)
            & ~(fil$(,SET,-1))
            & get$"FILE98741LFN.TXT":xabc123456
            & rmv$"FILE98741LFN.TXT"
          | Out$754
          )
          ( fil$(,,,,)&Out$755
          | 
          )
          ( fil$(,4 5,)&Out$756
          | 
          )
          ( fil$("FILE98741LFN.TXT",w)
          & ( fil$(,CHR,hk)&Out$757
            | 
            )
          & ( fil$(,CHR,45/7)&Out$758
            | 
            )
          & ( fil$(,CHR,3,hk)&Out$759
            | 
            )
          & ( fil$(,CHR,5,45/7)&Out$760
            | 
            )
          & (fil$(,CHR,5,4)|Out$761)
          & (fil$(,,6,7)|Out$761)
          & ( fil$(,ijklmnop)&Out$762
            | 
            )
          & ( fil$(,,ijklmnop)&Out$763
            | 
            )
          & (fil$(,,,ijklmnop)|Out$764)
          & (fil$(,SET,3)|Out$765)
          & (fil$(,TEL):3|Out$766)
          & (fil$(,SET,)|Out$767)
          & (fil$(,TEL):0|Out$768)
          & ( fil$(,SET,3/2)&Out$769
            | 
            )
          & ~(fil$(,SET,-1))
          & rmv$"FILE98741LFN.TXT"
          )
          ( fil$("FILE98741LFN.TXT",w)
          & (fil$(,DEC)|Out$770)
          & ( fil$(,,1)&Out$771
            | 
            )
          & ( fil$(,,2)&Out$772
            | 
            )
          & ( fil$(,,3)&Out$773
            | 
            )
          & ( fil$(,,4)&Out$774
            | 
            )
          & ( fil$(,,5)&Out$775
            | 
            )
          & (fil$(,DEC,1,5)|Out$776)
          & (fil$(,,1,999999999)|Out$777)
          & (fil$(,,2,999999999)|Out$778)
          & (fil$(,,3,999999999)|Out$779)
          & (fil$(,,4,999999999)|Out$780)
          & (fil$(,,5,999999999)|Out$781)
          & (fil$(,DEC,2,3)|Out$782)
          & (fil$(,,1,999999999)|Out$783)
          & (fil$(,,2,999999999)|Out$784)
          & (fil$(,,3,999999999)|Out$785)
          & (fil$(,,4,999999999)|Out$786)
          & (fil$(,,5,999999999)|Out$787)
          & (fil$(,DEC,3,3)|Out$788)
          & (fil$(,,1,999999999)|Out$789)
          & (fil$(,,2,999999999)|Out$790)
          & (fil$(,,3,999999999)|Out$791)
          & (fil$(,,4,999999999)|Out$792)
          & (fil$(,,5,999999999)|Out$793)
          & (fil$(,DEC,4,2)|Out$794)
          & (fil$(,,1,999999999)|Out$795)
          & (fil$(,,2,999999999)|Out$796)
          & (fil$(,,3,999999999)|Out$797)
          & (fil$(,,4,999999999)|Out$798)
          & (fil$(,,5,999999999)|Out$799)
          & out$800
          & (fil$(,DEC,5,2)|Out$800)
          & (fil$(,,1,999999999)|Out$801)
          & (fil$(,,2,999999999)|Out$802)
          & (fil$(,,3,999999999)|Out$803)
          & (fil$(,,4,999999999)|Out$804)
          & (fil$(,,5,999999999)|Out$805)
          & ~(fil$(,SET,-1))
          & rmv$"FILE98741LFN.TXT"
          )
          ( fil$("FILE98741LFN.TXT",w)
          & (fil$(,STR)|Out$806)
          & ( fil$(,,,koorddanser)
            | Out$807
            )
          & ~(fil$(,SET,-1))
          & rmv$"FILE98741LFN.TXT"
          )
          ( rmv$"FILE98741LFN.TXT"
          & (fil$("FILE98741LFN.TXT","w+b")|Out$808)
          & (fil$(,CHR,1,2)|Out$809)
          & (fil$(,,,abcdefghij)|Out$810)
          & (fil$(,SET,0)|Out$811)
          & (fil$:ab|Out$812)
          & (fil$(,SET,1)|Out$813)
          & (fil$(,,,123)|Out$814)
          & ( fil$:&Out$815
            | 
            )
          & (fil$(,SET,0)|Out$816)
          & (fil$(,CHR,1,10)|Out$817)
          & "There are no 10 bytes to read"
          & (fil$:a12|Out$818)
          & (fil$(,SET,0)|Out$819)
          & "Write ten bytes"
          & (fil$(,,,abcdefghij)|Out$820)
          & "go to start of ten bytes"
          & (fil$(,SET,0)|Out$821)
          & "Overwrite first three bytes"
          & (fil$(,CHR,1,3)|Out$822)
          & (fil$(,,,1234)|Out$823)
          & "Go to start"
          & (fil$(,SET,0)|Out$824)
          & "prepare for reading five bytes"
          & (fil$(,CHR,1,5)|Out$825)
          & "read next five bytes"
          & (fil$:123de|Out$826)
          & "Overwrite next byte"
          & (fil$(,CHR,1,1)|Out$827)
          & (fil$(,,,XYZ)|Out$828)
          & (fil$(,CHR,1,5)|Out$829)
          & "read next five bytes"
          & (fil$:ghij|Out$830)
          & "prepare for reading all bytes"
          & (fil$(,STR)|Out$831)
          & "read all bytes"
          & (fil$(,SET,0)|Out$832)
          & ( fil$:(123deXghij.)
            | Out$833
            )
          & ~(fil$(,SET,-1))
          & (|rmv$"FILE98741LFN.TXT")
          )
          ( rmv$"FILE98741LFN.TXT"
          & (fil$("FILE98741LFN.TXT","w+b")|Out$834)
          & (fil$(,CHR,10,1000)|Out$835)
          & (fil$(,,,abcdefghij)|Out$836)
          & (fil$(,CHR,4,1)|Out$837)
          & (fil$(,,,STOP)|Out$838)
          & "prepare for reading all bytes up to one of POT"
          & (fil$(,STR,POT)|Out$839)
          & "read all those bytes"
          & (fil$(,SET,0)|Out$840)
          & (   fil$
              : (@(?:abcdefghij ? [10000 S).T)
            | Out$841
            )
          & "prepare for reading all remaining bytes"
          & (fil$(,STR)|Out$842)
          & (fil$:(OP.)|Out$843)
          & ~(fil$(,SET,-1))
          & (|rmv$"FILE98741LFN.TXT")
          )
          ( rmv$"FILE98741LFN.TXT"
          & (fil$("FILE98741LFN.TXT","w+b")|Out$844)
          & (fil$(,CHR,1,255)|Out$845)
          & (fil$(,,,abcdefghij)|Out$846)
          & "prepare for reading all bytes"
          & (fil$(,STR)|Out$847)
          & "read all bytes"
          & (fil$(,SET,0)|Out$848)
          & ( fil$:(@(?:? [255).)
            | Out$849
            )
          & "prepare for reading all as DEC"
          & (fil$(,DEC,4,1)|Out$850)
          & "read that"
          & (fil$(,SET,0)|Out$851)
          & ( fil$:?NN:1684209761
            | Out$852
            )
          & (fil$(,DEC,2,2)|Out$853)
          & "read that"
          & (fil$(,SET,0)|Out$854)
          & (fil$:25185|Out$855)
          & (fil$(,DEC,1,4)|Out$856)
          & "read that"
          & (fil$(,SET,0)|Out$857)
          & (fil$:1684234849|Out$843)
          & ~(fil$(,SET,-1))
          & (|rmv$"FILE98741LFN.TXT")
          )
          (put$('$tay,LIN)|Out$844b)
          (/('(x.u))$7:u|Out$845b)
          (   (k=ab (Lk=i))
            & new$k
          | Out$846b
          )
          ( (k=ab Lk)&new$k
          | Out$847b
          )
          (   get$("pr-xml-utf-8.xml",X,ML):?xml
            & (   @( toML$!xml
                   :   ?x
                       "<tr><td bgcolor=\"&cellback;\" rowspan=\"2\" colspan=\"1\"></td>"
                       ?y
                   )
                & @( toML$(nestML$!xml)
                   :   ?a
                       "<tr><td bgcolor=\"&cellback;\" rowspan=\"2\" colspan=\"1\" />"
                       ?b
                   )
                & (!y:!b|Out$848bA)
                & (!x:!a|Out$848bB)
              | Out$848bC
              )
          | Out$"848bD cannot open pr-xml-utf-8.xml"
          )
          (   11:?!(=)
            & !loss
            & !:?p
            & !p:11
          | Out$849b
          )
          out$850b
          (ø l:% %|Out$850b)
          ( (   fil$("TAYTEST.TST",r)
              & fil$(,CHR)
              & fil$("FILE98741LFN.TXT",w)
              & fil$"TAYTEST.TST"
            | Out$852b
            )
          & (fil$("TAYTEST.TST",SET,-1)|)
          & (fil$("FILE98741LFN.TXT",SET,-1)|)
          & rmv$"FILE98741LFN.TXT"
          & rmv$"TAYTEST.TST"
          )
          ( glf$(=!.a.):(=?)
          | Out$853b
          )
          ( glf$(=?.a.):(=?h)
          | Out$854b
          )
          ( glf$(=!.a.):(=?h)
          | Out$855b
          )
          ( @(548:@548 @)&Out$856b
          | 
          )
          ( @(548:@ @)&Out$857b
          | 
          )
          (   @(548:@(548:548) @)
            & Out$858
          | 
          )
          (   @(548:@(548:?) @)
            & Out$859
          | 
          )
          (   @(548:@(548 ?) @)
            & Out$860
          | 
          )
          (   @(548:@(548&?) @)
            & Out$861
          | 
          )
          (   @(548:@(?:548) @)
            & Out$862
          | 
          )
          (   @(548:@(?:?) @)
            & Out$863
          | 
          )
          ( @(får:? (å|æ) ?)
          | Out$864
          )
          ( get$("12.34",MEM,JSN)&Out$865
          | 
          )
          ( get$("[12.34]",MEM,JSN):(,1234/100)
          | Out$866
          )
          (   get$("<p<q",MEM,ML)
            : (p.) (q.)
          | Out$867
          )
          ( -1*(-1+x^2)+1+-2*x+x^2
          | Out$868
          )
          (4*(x+7)+p+-4*x|Out$869)
          (     get
              $ ("<style><![CDATA[</a*]]></style><b>",MEM,X,ML)
            :   (style.)
                ("![CDATA["."</a*")
                (.style.)
                (b.)
          | Out$870
          )
          (     get
              $ ("<style><![CDATA[</a*]]></style><b>",MEM,H,ML)
            :   (style.)
                ("![CDATA["."</a*")
                (.style.)
                (b.)
          | Out$871
          )
          (     get
              $ ("<style><![CDATA[</a*]]></style><b>",MEM,HT,ML)
            :   (style.)
                "<![CDATA[</a*]]>"
                (.style.)
                (b.)
          |   Out$872
            &   "Earlier:"
                (style.)
                "<![CDATA["
                (."</a*]]>" (.style.) (b.))
          )
          (     get
              $ ( "<style><br/><![CDATA[< /a*</style><b>]]></style>"
                , MEM
                , HT
                , ML
                )
            :   (style.)
                "<br/><![CDATA[< /a*"
                (.style.)
                (b.)
                "]]>"
                (.style.)
          | Out$873
          )
          (     get
              $ ( "<style><br/><![CDATA[< /a*</style><b>]]></style>"
                , MEM
                , X
                , ML
                )
            :   (style.)
                (br.,)
                ("![CDATA["."< /a*</style><b>")
                (.style.)
          | Out$874
          )
          (     get
              $ ( "<style><br/><![CDATA[< /a*</style><b>]]></style>"
                , MEM
                , X
                , HT
                , ML
                )
            :   (style.)
                (br.,)
                ("![CDATA["."< /a*</style><b>")
                (.style.)
          | Out$875
          )
          (     get
              $ ( "<style><br/><![CDATA[< /a*</style><b>]]></style>"
                , MEM
                , HT
                , ML
                )
            :   (style.)
                "<br/><![CDATA[< /a*"
                (.style.)
                (b.)
                "]]>"
                (.style.)
          | Out$876
          )
          ( @( get$("&surrogate-blocks;",MEM,ML)
             : chr$127 "&surrogate-blocks;"
             )
          | Out$877
          )
          ( @( get$(str$(chr$127),MEM,ML)
             : chr$127 chr$127
             )
          | Out$878
          )
          (   a^(b+c+d+e)*f^(g+h)
            : ?*?^(%+[<3)*?
          | Out$879
          )
          (   a^(b+c)*f^g:?*?_(%+[<2)*?
            & a^(b+c)*f^g:?*?_(%+[2)*?
            & a^(b+c)*f^g:?*?_(%+[1)*?
            & a^(b+c)*f^g:?*?_(%+[>1)*?
          | Out$880
          )
          (   ( a^(b+c)*f^g:?*?_(%+[<1)*?
              | a^(b+c)*f^g:?*?_(%+[>2)*?
              )
            & Out$881
          | 
          )
          (     (a.b c) (f.g)
              : ? (?.% [<2) ?
            &   (a.b c) (f.g)
              : ? (?.% [2) ?
            &   (a.b c) (f.g)
              : ? (?.% [1) ?
            &   (a.b c) (f.g)
              : ? (?.% [>1) ?
          | Out$882
          )
          (   (   (a.b c) (f.g)
                : ? (?.% [<1) ?
              |   (a.b c) (f.g)
                : ? (?.% [>2) ?
              )
            & Out$883
          | 
          )
          (   10090000004431^1/2
            & 10090000004431^1/2
            & 10090000004431^1/2
            &   10090000004431^1/2
              : ( 10090000004431^1/2
                | 10067^1/2*1002284693^1/2
                )
          | Out$884
          )
          ( 1\La+1\Lb:1\L(a*b)
          | Out$885
          )
          (   img^jpg:(img^jpg)^?n
            & 1:!n
          | Out$886
          )
          (     "[{},{},    
    {    
        \"a\": \"b\\\"\",    
        \"d\\\\\": \"e\",    
        \"g\\/\": {    
            \"\\/x\\b\\f\\n\\r\\t\": {}    
        }    
    },    
    \"A	\",    
    [    
        \"x\",    
        \"t\"    
    ],    
    \"B\",    
    [],    
    [    
        \"y\",    
        \"z\",    
        \"o\"    
    ],    
    \"true\",    
    true,    
    false,    
    3.4,    
    0.00987654321 ,    
    0e0,    
    0.0000006e+007,    
    0.0000006e-007,    
    56.78,    
    56.780,    
    -0,    
    0,    
    -1,    
    286E4,    
    17E123,    
    17.87E123,    
    0.87E123,    
    17E123,    
	10.01,    
    -286E4,    
    -17E123,    
    -17.87E123,    
    -0.87E123,    
    -17E123,    
	-10.01,    
	0.123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789    ,    
	1234567891234567891234567891234567891234567891234567891234567891234567891234567891234567891234567891234567891234567891234567891234567891234567891234567891234567891234567891234567891234567891234567891234567891234567891234567891234567891234567891234567891234567891234567891234567891234567891234567.89123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789    ,    
	null,    
    \"I \\u042F je \\u044f\"    
]    
    
    
   "
              : ?jsontest
            &   get$(!jsontest,MEM,JSN)
              : ( 
                ,   (0,)
                    (0,)
                    (   (a..b\")
                      + ("d\\"..e)
                      + (g/.("/x\b\f\n\r\t".0,),)
                    , 
                    )
                    (.A\t)
                    (,(.x) (.t))
                    (.B)
                    (,)
                    (,(.y) (.z) (.o))
                    (.true)
                    true
                    false
                    34/10
                    987654321/100000000000
                    0
                    6
                    6/100000000000000
                    5678/100
                    56780/1000
                    -0
                    0
                    -1
                    2860000
                    17000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
                    17870000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
                    870000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
                    17000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
                    1001/100
                    -2860000
                    -17000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
                    -17870000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
                    -870000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
                    -17000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
                    -1001/100
                    123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789/1000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
                    123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789/100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
                    null
                    (."I Я je я")
                )
          | Out$887
          )
          (   jsn$(get$(!jsontest,MEM,JSN))
            : "[{},{},{\"a\":\"b\\\"\",\"d\\\\\":\"e\",\"g/\":{\"/x\\b\\f\\n\\r\\t\":{}}},\"A\\t\",[\"x\",\"t\"],\"B\",[],[\"y\",\"z\",\"o\"],\"true\",true,false,3.4,0.00987654321,0,6,0.00000000000006,56.78,56.78,-0,0,-1,2860000,17000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000,17870000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000,870000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000,17000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000,10.01,-2860000,-17000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000,-17870000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000,-870000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000,-17000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000,-10.01,0.123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789,1234567891234567891234567891234567891234567891234567891234567891234567891234567891234567891234567891234567891234567891234567891234567891234567891234567891234567891234567891234567891234567891234567891234567891234567891234567891234567891234567891234567891234567891234567891234567891234567891234567.89123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789123456789,null,\"I Я je я\"]"
          | Out$888
          )
          ( jsn$123/4567:"2.69323407050580249617E-2"
          | Out$889
          )
          ( jsn$123/4096:"0.030029296875"
          | Out$890
          )
          (jsn$123/3125:"0.03936"|Out$891)
          (jsn$123/5000:"0.0246"|Out$892)
          (   get$("<br H/><p>",MEM,HT,ML)
            : (br.(H.),) (p.)
          | Out$893
          )
          (     get
              $ ( "<script >A< d </script  </scRipt > <p > < /p> </ p ><p /><p />"
                , MEM
                , HT
                , ML
                )
            :   (script.)
                "A< d </script  "
                (.scRipt.)
                " "
                (p.)
                " "
                "< /p> "
                "</ p >"
                (p.,)
                (p.,)
          | Out$894
          )
          ( get$("</pop >",MEM,HT,ML):(.pop.)
          | Out$895
          )
          (   get$("</pop A>",MEM,HT,ML):"</pop A>"
            & get$("<xy>",MEM,HT,ML):(xy.)
          | Out$896
          )
          (     get$("<pap color=#'fedcba'>",MEM,HT,ML)
              : (pap.color."#'fedcba'")
            & "Not conforming, but forgiving!"
          | Out$897
          )
          (     get$("<pap color=blue/>",MEM,HT,ML)
              : (pap.(color.blue),)
            & "Not conforming, but forgiving!"
          | Out$898
          )
          (     get
              $ (   str
                  $ ( "<pap"
                      \f
                      "color=blue"
                      \f
                      a
                      \f
                      "="
                      \f
                      "'3'"
                      \f
                      ">"
                    )
                , MEM
                , HT
                , ML
                )
            : (pap.(color.blue) (a.3))
          | Out$899
          )
          out$900
          (   (alice=bob|carol)
            & (bob=7)
            & (carol=13)
            & !!alice:7
          | Out$900
          )
          (   (alice=bob|carol)
            & (bob=7)
            & (carol=13)
            & !('$!alice):7
          | Out$901
          )
          (   ( alice
              = ~&bob|carol
              )
            & (bob=7)
            & (carol=13)
            & !('$!('$alice)):13
          | Out$902
          )
          (   (no=~)
            & !no:?x
            & "lhs fails, so no match takes attempted"
            & Out$903
          | 
          )
          (   (no=~ a)
            & !no:?x
            & "LHS succeeds, because space operator does not propagate failure of elements"
            & !x
            & "Succeeds, just like !no earlier"
            & !no:?x a
            & "Succceeds, x contains ~"
            & !x
            & "Fails, because expression bound to x fails"
            & Out$904
          | 
          )
          (   (no=~ a)
            & !no:?x a
            & ~!x
            & "Succeeds, because expression bound to x is negated and becomes successful"
          | Out$905
          )
          (   !tnjgkff
            & "Fails, no expression bound to tnjgkff"
            & Out$906
          | 
          )
          (   ~!tnjgkff
            & "Succeeds, no expression bound to tnjgkff. ~ turns that absence into success."
          | Out$907
          )
          (   @(abcdex:?h1 [%@(ascbdex:?h2 !sjt))
            & !h1:abc
            & !h2:ascb
            & (!sjt&Out$908|)
          | Out$909
          )
          (   (.2*(C+D))+(.A+B)
            : (.2*(C+D))+(.A+B)
          | Out$910
          )
          (   (.2*(C+D))+(.3*(A+B))
            : (.2*(C+D))+(.3*(A+B))
          | Out$911
          )
          (     (.B+C)
              + (.2*(U+Z))
              + (.A*E)
              + (.B+C)
            :   (.2*(U+Z))
              + (.A*E)
              + 2*(.B+C)
          | Out$912
          )
          (   (.a*(b+c))+(.a*b+a*c)
            : (.a*(b+c))+(.a*b+a*c)
          | Out$913
          )
          (   (.a*b+a*c)+(.a*(b+c))
            : (.a*(b+c))+(.a*b+a*c)
          | Out$914
          )
          (jsn$-1/2:"-0.5"|Out$915)
          ( jsn$-1/3:"-3.33333333333333333333E-1"
          | Out$916
          )
          (jsn$-3/2:"-1.5"|Out$917)
          (jsn$-1/25:"-0.04"|Out$918)
          (   lst$(tay,MEM,RAW):?TAY
            & get$(str$("(taylor=" !TAY ")"),MEM)
            &   taylor$(e^x,x,3)
              : 1+x+1/2*x^2+1/6*x^3
          | Out$919
          )
          (   lst$('$tay,MEM,RAW):?TAY
            & get$(str$("(taylor=" !TAY ")"),MEM)
            &   taylor$(e^x,x,3)
              : 1+x+1/2*x^2+1/6*x^3
          | Out$920
          )
          (   lst$('$tay,MEM):?TAY
            & get$(!TAY,MEM):(=?taylor)
            &   taylor$(e^x,x,3)
              : 1+x+1/2*x^2+1/6*x^3
          | Out$921
          )
          ( lst'((a=\n),LIN,MEM):"(a=\\n)\n"
          | Out$922
          )
          (   get$("{\"reg\":\"Rhône\",\"metro\":0}",MEM,JSN)
            : ((metro.0)+(reg..Rhône),)
          | Out$923
          )
          ( sim$(abbcd.abcd):8/9
          | Out$924
          )
          (   map$(rev.aap noot mies)
            : paa toon seim
          | Out$925
          )
          (   map$(/('(x.$x^2)).1 2 3 4)
            : 1 4 9 16
          | Out$926
          )
          (   map$((=.!arg^2).1 2 3 4)
            : 1 4 9 16
          | Out$927
          )
          (   (square=.!arg^2)
            &   map$(square.1 2 3 4)
              : 1 4 9 16
          | Out$928
          )
          (     map
              $ ( ( 
                  =   x
                    .     !arg:?*?^%?x*?*?^!x*?
                        & (!arg."same exponent" !x)
                      | (!arg.)
                  )
                .   a*b^3*c^2
                    d*f^3*g^2*h*j^3
                    o*p
                )
            :   (a*b^3*c^2.)
                ( d*f^3*g^2*h*j^3
                . "same exponent" 3
                )
                (o*p.)
          | Out$929
          )
          (     toML
              $ ( get
                $ ("<html><body>&gvertneqq;</body></html>",MEM,HT ML)
                )
            : "<html><body>&#8809;&#65024;</body></html>"
          | Out$930
          )
          (     toML
              $ ( get
                $ ( "<html><head><meta content='text/html; charset=UTF-8' /></head><body>&gvertneqq;</body></html>"
                  , MEM
                  , HT ML
                  )
                )
            : "<html><head><meta content=\"text/html; charset=UTF-8\" /></head><body>≩︀</body></html>"
          | Out$931
          )
          (     toML
              $ ( get
                $ ( "<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Strict//EN\" \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd\"><html><body>&gvertneqq;</body></html>"
                  , MEM
                  , HT ML
                  )
                )
            : "<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Strict//EN\" \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd\"><html><body>≩︀</body></html>"
          | Out$932
          )
          (   ( f
              =   
                .     !sjt
                    : (a|b|c)
                  & ?
              )
            & a:f$
            & @(a:f$)
            & d:~(f$)
            & @(d:~(f$))
          | Out$933
          )
          (   ( f
              =   
                .     !sjt
                    : (a|b|c)
                  & ?
              )
            & ( a:~(f$)
              | @(a:~(f$))
              | d:f$
              | @(d:f$)
              )
            & Out$934
          | 
          )
          (   (f=.!sjt:&?)
            & :f$
            & @(:f$)
            & d:~(f$)
            & @(d:~(f$))
          | Out$935
          )
          (   (f=.!sjt:&?)
            & ( :~(f$)
              | @(:~(f$))
              | d:f$
              | @(d:f$)
              )
            & Out$936
          | 
          )
          (     vap
              $ ( ( 
                  = ..vap$((=.!arg).!arg.\t)
                  )
                . ab\tc\nd\tef\n
                . \n
                )
            : (.ab c) (.d ef) (.)
          | Out$937
          )
          (     vap
              $ ( (=.asc$!arg)
                . str$(chr$200 chu$200)
                )
            : 200 195 136
          | Out$938
          )
          (   vap$((=.!arg).abc.)
            & Out$939
          | 
          )
          (   vap$((=.!arg).ab c.";")
            & out$940
          | 
          )
          ( vap$((=.!arg).ab c):ab
          | out$941
          | 
          )
          ( vap$((=.!arg).):
          | out$942
          )
          (   vap$((=.!arg)..):
            & out$943
          | 
          )
          (     toML
              $ ( nestML
                $ ( get
                  $ ( "<:text lix='45.61' :ovix=\"70.39\" _nk=\"1.09\" i:d='aa01a'><_sentence i-d='e248e955-e24865ce' _geo.context='|'></_sentence></:text>"
                    , MEM
                    , X ML
                    )
                  )
                )
            : "<:text lix=\"45.61\" :ovix=\"70.39\" _nk=\"1.09\" i:d=\"aa01a\"><_sentence i-d=\"e248e955-e24865ce\" _geo.context=\"|\" /></:text>"
          | Out$944
          )
          (     toML
              $ ( nestML
                $ ( get
                  $ ( "<:text lix='45.61' :ovix=\"70.39\" _nk=\"1.09\" i:d='aa01a'><_sentence i-d='e248e955-e24865ce' _geo.context='|'></_sentence></:text>"
                    , MEM
                    , HT ML
                    )
                  )
                )
            : "<:text lix=\"45.61\" :ovix=\"70.39\" _nk=\"1.09\" i:d=\"aa01a\"><_sentence i-d=\"e248e955-e24865ce\" _geo.context=\"|\" /></:text>"
          | Out$945
          )
          (     toML
              $ ( nestML
                $ ( get
                  $ ( "<:text lix='45.61' :ovix=\"70.39\" _nk=\"1.09\" i:d='aa01a'><_sentence i-d='e248e955-e24865ce' _geo.context='|'></_sentence></:text>"
                    , MEM
                    , ML
                    )
                  )
                )
            : "<:text lix=\"45.61\" :ovix=\"70.39\" _nk=\"1.09\" i:d=\"aa01a\"><_sentence i-d=\"e248e955-e24865ce\" _geo.context=\"|\" /></:text>"
          | Out$946
          )
          (     map
              $ ( (=.!arg:~3|)
                . 1 2 3 4 3 2 1
                )
            : 1 2 4 2 1
          | Out$20190131a
          )
          (     map$((=.called).4 3)
              : called called
            & map$((=.called).4):called
            & map$((=.called).):
          | Out$20190131b
          )
          (   a:a^(?Y [?L)
            & !Y:1
            & !L:1
          | Out$20190207a
          )
          (   a:a^(?Y+[?L)
            & !Y:1
            & !L:1
          | Out$20190207b
          )
          (   a:a^(?Y*[?L)
            & !Y:1
            & !L:0
          | Out$20190207c
          )
          (   a^b:a^(?Y*[?L)
            & !Y:b
            & !L:1
          | Out$20190207d
          )
          (   a:a^([?L ?Y)
            & !Y:1
            & !L:0
          | Out$20190207e
          )
          (   a:a^([?L ?Y [?M)
            & !Y:1
            & !L:0
            & !M:1
          | Out$20190207f
          )
          (   a:a ?Y*[?X
            & !Y:
            & !X:1
          | Out$20190207g
          )
          (   a:a ?Y++[?X
            & !Y:0
            & !X:1
          | Out$20190207h
          )
          (   a:a ?Y+[?X
            & !Y:
            & !X:1
          | Out$20190207i
          )
          (   a:(?x:?y [?LEN)*a
            & !x:1
            & !y:1
            & !LEN:1
          | Out$20190207j
          )
          (   -1:(~-1:#%?n)*?Y+?Z
            & Out$20190207k
          | 
          )
          (   -2:(~-1:#%?n)*?Y+?Z
            & !n:-2
            & !Y:1
            & !Z:0
          | Out$20190207l
          )
          (   -2:(%:(~-1:#%?n)*?Y)+?Z
            & !n:-2
            & !Y:1
            & !Z:0
          | Out$20190207m
          )
          (   1:(~-1:#%?n)*?Y+?Z
            & Out$20190207n
          | 
          )
          (   1:(%:(~-1:#%?n)*?Y)+?Z
            & Out$20190207o
          | 
          )
          (   0:(~-1:#%?n)*?Y+?Z
            & Out$20190207p
          | 
          )
          (   0:(%:(~-1:#%?n)*?Y)+?Z
            & Out$20190207q
          | 
          )
          (     (a^b c)*(x^y z)
              : (%?g^?gp ?go)*?gs
            & !g:1
            & !gp:1
            & !go:
            & !gs:(a^b c)*(x^y z)
          | Out$20190207r
          )
          (     (a^b c)*(x^y z)
              : %(%?g^?gp ?go)*?gs
            & !g:a
            & !gp:b
            & !go:c
            & !gs:x^y z
          | Out$20190207s
          )
          ( (=a^1):(=a^%)
          | Out$20190207t
          )
          ( a:a^%&Out$20190207u
          | 
          )
          (     8866128975287528^3
              + -8778405442862239^3
              + -2736111468807040^3
            : 33
          |   Out
            $ "Andrew Booker was wrong. (Sum of Three Cubes Problem for number 33.)"
          )
          (   "https://codegolf.stackexchange.com/questions/161483/expand-sine-and-cosine/195251#195251"
            & "This expression caused failing assertions. However, the code was correct and the assertions were unwarranted."
            & ( P
              =   F v a b
                .       !arg
                      : ((sin|cos):?F.?v)
                    & ( !v:@&(!F.!v)
                      | !F$!v
                      )
                  |   !arg:%?a_%?b
                    & (P$!a)_(P$!b)
                  | !arg
              )
            & ( f
              =   i a b n u
                .   1
                  + (     !arg
                        :   e
                          ^ (   ?n
                              * ((i|-i):?i)
                              * ?u
                            + ?b
                            )
                      &   (!i*(sin.!u)+(cos.!u))^!n
                        * f$(e^!b)
                    |   !arg:%?a_%?b
                      & (f$!a)_(f$!b)
                    | !arg
                    )
                  + -1
              )
            & (Z=.f$(P$!arg))
            &     (sin.2*x)
                  (cos.2*x)
                  (sin.-3*x)+(sin.x)^3
                  (cos.2*x)+3*(sin.x)^2
                  (sin.-4*x)
                  (cos.a+2*b+-1*c+3*pi)
                    (sin.x+674868986*pi)
                  + (sin.x+883658433*pi)
                    (sin.x+674868986*pi)
                  + (sin.x+883658434*pi)
              : ?cases
            &   map$((=.Z$!arg).!cases)
              :   2*(cos.x)*(sin.x)
                  (cos.x)^2+-1*(sin.x)^2
                    2*(sin.x)^3
                  + -3*(cos.x)^2*(sin.x)
                  (cos.x)^2+2*(sin.x)^2
                    -4*(cos.x)^3*(sin.x)
                  + 4*(cos.x)*(sin.x)^3
                    -1*(cos.b)^2*(sin.a)*(sin.c)
                  + -1*(cos.a)*(cos.b)^2*(cos.c)
                  +   -2
                    * (cos.a)
                    * (cos.b)
                    * (sin.b)
                    * (sin.c)
                  + (cos.a)*(cos.c)*(sin.b)^2
                  +   2
                    * (cos.b)
                    * (cos.c)
                    * (sin.a)
                    * (sin.b)
                  + (sin.a)*(sin.b)^2*(sin.c)
                  0
                  2*(sin.x)
          | Out$"20191103 expand-sine-and-cosine"
          )
          (   (f=typoer)
            & 17:?(&!f)
            & (&!f):typoer
            & !('$!f):17
            & 17:!('$!f)
            & !(&!f):17
            & 17:!(&!f)
            & !!f:17
            & !typoer:17
          | Out$"Alternative to !! and ?!."
          )
          (     -80538738812075974^3
              + 80435758145817515^3
              + 12602123297335631^3
            : 42
          | Out$"forty-two is not the answer"
          )
          (   get$("<?xml akajh ?><?app >aap",ML MEM):?ml
            & toML$!ml:"<?xml akajh ?><?app ?>aap"
          | Out$"toML 20200930"
          )
          (     toML
              $ ( get
                $ ( "<a href=http://www.aaa.dk/ess/index.html>"
                  , HT ML MEM
                  )
                )
            : "<a href=\"http://www.aaa.dk/ess/index.html\">"
          | Out$"xml.c:invalue(const char * kar) 20201001"
          )
          (     MLencoding
              $ ( get
                $ ( "<?xml version='1.0'?><!DOCTYPE html PUBLIC '-//W3C//DTD XHTML 1.0 Strict//EN' 'http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd'><html xmlns='http://www.w3.org/1999/xhtml' xml:lang='da' lang='da'> <head>  <title>eltit</title>  <meta http-equiv='content-type' content='text/html;charset=iso-8859-1' /> </head> <body>B&aring;ddy</body></html>"
                  , HT ML MEM
                  )
                )
            : iso-8859-1
          | Out$"MLencoding:Check meta tag if xml declaration inconclusive"
          )
          (   (p==B_A)
            & !p:!p
            & w_k:w_k
          |   Out
            $ "Evaluation must stop if the dummy operator evaluates to itself."
          )
          (   (x=a+b+c)
            &   mop$((=.!arg).!x.'$x)
              : a b c
          |   Out
            $ "Convert non-atomic expression to space operator separated list."
          )
          (   (x=c)
            &   mop$((=.!arg).!x.'$x)
              : a b c
            & Out$"Expression must be non-atomic."
          | 
          )
          (   mop$((=.!arg)..(=+))
            : 
          | Out$"Corner case: expression is empty atom. Should succeed."
          )
          (     mop
              ' ( (=.!arg)
                . a b c
                . (=x y)
                )
            : a b c
          | Out$"Expression can be a list if call is mop' and not mop$."
          )
          (   let$(chu$(x2d$2FA1D))
            & let$(chu$(x2d$30001))
            & let$(chu$(x2d$30000))
            & let$a
            & ~(let$" ")
            & ~(let$",")
            & ~(let$0)
            & let$Z
            & let$(chu$(x2d$FF))
            & let$(chu$(x2d$2E4))
            & ~(let$(chu$(x2d$2E5)))
            & ~(let$ZZ)
          | Out$"let$ has an error"
          )
          (   abc:?name
            & x y z:?(&!name)
            & str$(P !name):Pabc
          |   Out
            $ "A ? flag is permanently added to a name. An undesired side-effect."
          )
          (   abc:?name
            & @(xyz:?(&!name))
            & str$(P !name):Pabc
          |   Out
            $ "A ? flag is permanently added to a name. An undesired side-effect."
          )
          (   (A=.4*!arg)
            & map$(A.1 2 3):4 8 12
          | Out$"Function name must be valid in map, vap and mop"
          )
          (   (A=.4*!arg)
            &   map$((=.4*!arg).1 2 3)
              : 4 8 12
          | Out$"Anonymous function must be valid in map, vap and mop"
          )
          (   tbl$(A,10)
            & tbl$(B,10)
            & vap$(6,AB)
            & 13:?B
            & !(5$B):0
            & !(6$B):13
            & tbl$(A,0)
            & tbl$(B,0)
          | Out$"Integer must be valid in map, vap and mop"
          )
          (   ( A
              = B
              = C
              = 
              = D
              = .2*!arg
              )
            &   map$((A.B.C..D),1 2 3)
              : 2 4 6
          | Out$"Member function must be valid in map, vap and mop"
          )
          (     mop
              $ ( /('(x.3*$x))
                . (1.2.3)
                . (=.)
                )
            : 3 6 9
          | Out$"Lambda expression must be valid in map, vap and mop"
          )
          (   new$hash:?H
            &   mop
              $ ( (H..insert)
                . (a.1),(b.2),(c.3)
                . (=,)
                )
            & (H..find)$c:(c.3)
          |   Out
            $ "Member function of built in class must be valid in map and mop"
          )
          (   (j=8)
            & (k=9)
            &   map'(.$j ()$k)
              : (=8) (=9)
            &     mop
                ' (.$j,$k.(=,))
              : (=8) (=9)
          | Out$"Macro evaluation must be valid in map and mop"
          )
          (   (x=(a=2) (b=3))
            & !(x.a):2
            &   !((=(a=2) (b=3)).a)
              : 2
          | Out$"Member selection on anonymous object"
          )
          (     7
              : ?((=(a=2) (b=3)).a)
              : 7
            & !loss
          |   Out
            $ "(Meaningless) member selection on anonymous object. Same as 310."
          )
          (   (TTT.do)$7
            & Out$"Can not call member of non-existent object."
          | 
          )
          (   ((.(did=.!arg+2)).did)$3
            & Out$"Invalid object specification."
          | 
          )
          (   (a=b=4)
            & !(a.c)
            & Out$"Fetching undefined member."
          | 
          )
          (   (new$hash..insert)$(a.b)
            & Out$"No external method 'insert' defined."
          | 
          )
          (   0:?n
            &   whl
              ' ( 1+!n:<10:?n
                & (new$hash.insert)$(a.b)
                )
            & !n:9
            & fine
          | Out$"Cannot call built-in method on anonymous built-in object."
          )
          (   (+(x.$x^2))$3
            & Out$"Invalid function definition"
          | 
          )
          (   (new$hash.insert)$a
            & Out$"Hash insert: Missing value"
          | 
          )
          (   (       new
                    $ (UFP,(=(s.myParm).!myParm))
                  : ?myCalc
                  : (=UFP)
                & (myCalc..go)$2:"2.0000000000000000E+00"
                &   (myCalc..export)$("%a",myParm)
                  : ("0x1.0000000000000p+1"|"0x1p+1")
                &   (myCalc..go)$256
                  : "2.5600000000000000E+02"
                &   (myCalc..export)$("%a",myParm)
                  : ("0x1.0000000000000p+8"|"0x1p+8")
                &   (myCalc..go)$"0.015625"
                  : "1.5625000000000000E-02"
                &   (myCalc..export)$("%a",myParm)
                  : ("0x1.0000000000000p-6"|0x1p-6)
                &   (myCalc..go)$0xCAP-007
                  : "1.5781250000000000E+00"
                &   (myCalc..export)$("%a",myParm)
                  : ("0x1.9400000000000p+0"|"0x1.94p+0")
                &   (myCalc..go)$"0.857421875"
                  : "8.5742187500000000E-01"
                &   (myCalc..export)$("%a",myParm)
                  : ("0x1.b700000000000p-1"|"0x1.b7p-1")
                &   (myCalc..export)$(Q,myParm)
                  : 439/512
                & (myCalc..go)$9007199254740991
                &   (myCalc..export)$(R,myParm)
                  : "9.007199e+15"
                &   (myCalc..export)$(N,myParm)
                  : 9007199254740991
                &   (myCalc..go)$0x1p-1074
                  : "4.9406564584124654E-324"
                &   (myCalc..export)$("%a",myParm)
                  : ("0x0.0000000000001p-1022"|0x1p-1074)
                &   (myCalc..go)$"3.1415926"
                  : "3.1415926000000001E+00"
                &   (myCalc..export)$("%a",myParm)
                  : "0x1.921fb4d12d84ap+1"
                & (myCalc..go)$5:"5.0000000000000000E+00"
                &   (myCalc..export)$("%a",myParm)
                  : ("0x1.4000000000000p+2"|"0x1.4p+2")
                &   (myCalc..go)$"0x1.999999999999ap-4"
                  : "1.0000000000000001E-01"
                &   (myCalc..export)$("%a",myParm)
                  : "0x1.999999999999ap-4"
                &   (myCalc..go)$"0x3.3333333333334p-5"
                  : "1.0000000000000001E-01"
                &   (myCalc..export)$("%a",myParm)
                  : "0x1.999999999999ap-4"
                &   (myCalc..go)$"0xcc.ccccccccccdp-11"
                  : "1.0000000000000001E-01"
                &   (myCalc..export)$("%a",myParm)
                  : "0x1.999999999999ap-4"
                &   (myCalc..go)$"1.0000000000000000E-01"
                  : "1.0000000000000001E-01"
                &   flt$(x2d$1999999999999a*2^-56,80)
                  : "1.00000000000000005551115123125782702118158340454101562500000000000000000000000000E-1"
                &   (myCalc..export)$("%a",myParm)
                  : "0x1.999999999999ap-4"
              | Out$"Something amiss with very simple UFP object."
              )
            & (       new
                    $ ( UFP
                      , ( 
                        =   (s.myParm)
                          .   (   !myParm:<"1.0"
                                & -1:?answ
                              | 1:?answ
                              )
                            & !answ
                        )
                      )
                  : ?myCalc
                  : (=UFP)
                &   (myCalc..go)$1/2
                  : "-1.0000000000000000E+00"
                &   (myCalc..go)$3/2
                  : "1.0000000000000000E+00"
              | Out$"UFP code with less-than test fails."
              )
            & (     (   new
                      $ ( UFP
                        , ( 
                          =   (s.myParm)
                            .   (   !myParm:<"0.5"
                                  & -1:?answ
                                | 1:?answ
                                )
                              & !answ
                          )
                        )
                    : ?myCalc
                    )
                  : (=UFP)
                &   (myCalc..go)$1/4
                  : "-1.0000000000000000E+00"
                &   (myCalc..go)$3/4
                  : "1.0000000000000000E+00"
              |   Out
                $ "UFP code with less-than test against value smaller than 1 fails."
              )
            & (       new
                    $ ( UFP
                      , ( 
                        =   (s.parm1) (s.parm2)
                          .   ( add
                              =   (a.Arry)
                                .     !(idx$(Arry,0))
                                    + !(idx$(Arry,1))
                                  : ?(idx$(Arry,2))
                              )
                            & tbl$(Arr,3)
                            & !parm1:?(idx$(Arr,0))
                            & !parm2:?(idx$(Arr,1))
                            & add$Arr
                            & !(idx$(Arr,2))
                        )
                      )
                  : ?myCalc
                  : (=UFP)
                &   (myCalc..go)$(4,7)
                  : "1.1000000000000000E+01"
                &   (myCalc..export)$(N,Arr)
                  : (,4 7 11)
              |   Out
                $ "UFP code with user defined function and some simple array manipulation fails."
              )
            & (       new
                    $ ( UFP
                      , ( 
                        =   (s.parm1) (s.parm2)
                          .   ( add
                              =   (a.Arry)
                                .     !(idx$(Arry,0))
                                    + !(idx$(Arry,1))
                                  : ?(idx$(Arry,2))
                              )
                            & tbl$(Arr,3)
                            & !parm1:?(idx$(Ars,0))
                            & !parm2:?(idx$(Ars,1))
                            & add$Arr
                            & !(idx$(Arr,2))
                        )
                      )
                  : ?myCalc
                  : (=UFP)
                &   Out
                  $ "Failed compilation of UFP object (`Ars' instead of `Arr') must lead to failure."
              | 
              )
            & (     (myCalc..go)$(4,7)
                  : "1.1000000000000000E+01"
                &   (myCalc..export)$(N,Arr)
                  : (,4 7 11)
              | Out$"Existing UFP object must survive a failed compilation."
              )
            & (       new
                    $ (UFP,(=.9|10))
                  : ?myCalc
                  : (=UFP)
                & (   (myCalc..go)$
                    &   Out
                      $ "Runtime error expected. In a UFP object, an OR (|) statement is not an expression returning a value."
                  | 
                  )
              |   Out
                $ "Compilation does not (yet) check whether a UFP object can ever run."
              )
            & (       new
                    $ ( UFP
                      , ( 
                        =   
                          .   0:?n
                            &   whl
                              ' ( !n:<10
                                & 1+!n:?n
                                )
                        )
                      )
                  : ?myCalc
                  : (=UFP)
                & (   (myCalc..go)$
                    &   Out
                      $ "Runtime error expected. In a UFP object, an WHILE (whl') statement is not an expression returning a value."
                  | 
                  )
              |   Out
                $ "Compilation does not (yet) check whether a UFP object can ever run."
              )
            & (       new
                    $ ( UFP
                      , ( 
                        =   
                          .   0:?n
                            &   whl
                              ' ( !n:<10
                                & 1+!n:?n
                                )
                            & !n
                        )
                      )
                  : ?myCalc
                  : (=UFP)
                & ( (myCalc..go)$
                  | Out$"No runtime error expected."
                  )
              | Out$"Compilation failed for unknown reason (1)."
              )
            & (       new
                    $ ( UFP
                      , ( 
                        =   
                          .   20:?n:?m
                            & !n+!m
                        )
                      )
                  : ?myCalc
                  : (=UFP)
                & ( (myCalc..go)$
                  | Out$"No runtime error expected."
                  )
              | Out$"Compilation failed for unknown reason (2)."
              )
            & (       new
                    $ ( UFP
                      , ( 
                        =   
                          .   20 7 500:%?k %?l %?m
                            & !k+!l+!m
                        )
                      )
                  : ?myCalc
                  : (=UFP)
                &   Out
                  $ "Compilation failed because the : operator expects a numeric value on the Left Hand Side."
                & (   (myCalc..go)$
                    : "1.5000000000000000E+03"
                  |   Out
                    $ "UFP objects don't have pattern matching. The last element in the list, `500' is assigned to each of k , l and m."
                  )
              | 
              )
            & (     new$(UFP,(=.5*0^-1))
                  : ?myCalc
                  : (=UFP)
                & (   (myCalc..go)$:
                    &   Out
                      $ "Division by zero is a run time error and does not result in a returnable value."
                  | 
                  )
              | Out$"Compilation failed for unknown reason (4)."
              )
            & (       new
                    $ ( UFP
                      , ( 
                        =   
                          .   (   5*0^-1
                                & 888:?i
                              | 7:?i
                              )
                            & !i
                        )
                      )
                  : ?myCalc
                  : (=UFP)
                & (     (myCalc..go)$
                      : "8.8800000000000000E+02"
                    &   out
                      $ "Division by zero is a run time error, but not necessarily leading to halting the calculation. TODO handle inf and nan in UFP objects"
                  | 
                  )
              | Out$"Compilation failed for unknown reason (5)."
              )
            & (       new
                    $ ( UFP
                      , ( 
                        =   
                          .   (   5*0^-1:INfinity
                                & 888:?i
                                & out$888
                              | 7:?i
                              )
                            & !i
                        )
                      )
                  : ?myCalc
                  : (=UFP)
                &   Out
                  $ "\"INfinity\" is not a numeric value and strings are not supported in UFP objects."
                & (     (myCalc..go)$
                      : "8.8800000000000000E+02"
                    &   Out
                      $ "Division by zero is a run time error, but not necessarily leading to halting the calculation."
                  | out$"TODO handle inf and nan in UFP objects"
                  )
              | 
              )
            & (       (   new
                        $ ( UFP
                          , ( 
                            =   (s.a) (s.b)
                              . pow$(1/3,!a^3+!b^3)
                            )
                          )
                      . go
                      )
                    $ (13,8)
                  : "1.3940221304312031E+01"
                & 9:?nrOfPlanets
                & 3:?spaceDimensions
                &     new
                    $ ( UFP
                      ,   
                        ' ( 
                          .     tbl
                              $ ( planets
                                , $nrOfPlanets
                                , $spaceDimensions
                                )
                            & rank$planets:?nrOfIndices
                            & tbl$(dynamic,!nrOfIndices)
                            & 0:?index
                            &   whl
                              ' ( !index:<!nrOfIndices
                                &   extent$(planets,!index)
                                  : ?(idx$(dynamic,!index))
                                & 1+!index:?index
                                )
                            & 1:?cells
                            & 0:?index
                            &   whl
                              ' ( !index:<!nrOfIndices
                                &   !(idx$(dynamic,!index))*!cells
                                  : ?cells
                                & 1+!index:?index
                                )
                            & !cells
                          )
                      )
                  : ?UFPobject
                &   (UFPobject..go)$
                  : "2.7000000000000000E+01"
                &   (UFPobject..export)$(N,dynamic)
                  : (,9 3)
                & (     
                      ' ( (a.myarray,4)
                        .   !(idx$(myarray,2)):?x
                          & idx$(myarray,3)
                          & !myarray:?y
                          & !x*!y
                        )
                    : ?calc1
                  & new$(UFP,!calc1):?clc1
                  &   (clc1..go)$(,2 "-3" 41 -"3.0E5")
                    : "-1.2300000000000000E+07"
                  )
                & (     
                      ' ( 
                        .   tbl$(T,5)
                          & idx$(T,3)
                          & 71:?T
                          & -13/3:?(idx$(T,2))
                          &   "-0x1.1555555555555P+3"
                            : ?(idx$(T,1))
                          & !(idx$(T,3))+!(idx$(T,2))
                        )
                    : ?calc2
                  & new$(UFP,!calc2):?clc2
                  & (clc2..go)$:"6.6666666666666671E+01"
                  &   (clc2..export)$(R,T)
                    : ( 
                      ,   "0.000000e+00"
                          "-8.666667e+00"
                          "-4.333333e+00"
                          "7.100000e+01"
                          "0.000000e+00"
                      )
                  &   (clc2..export)$(N,T)
                    : (,0 -8 -4 71 0)
                  &   (clc2..export)$(Q,T)
                    : ( 
                      ,   0
                          -1219724899079509/140737488355328
                          -1219724899079509/281474976710656
                          71
                          0
                      )
                  &   (clc2..export)$("%a",T)
                    : ( 
                      ,   ("0x0.0000000000000p+0"|"0x0p+0")
                          "-0x1.1555555555555p+3"
                          "-0x1.1555555555555p+2"
                          ("0x1.1c00000000000p+6"|"0x1.1cp+6")
                          ("0x0.0000000000000p+0"|"0x0p+0")
                      )
                  )
                & ( asQ
                  =   
                    .     new$(UFP,'((s.V).!V))
                        : ?calc
                      & (calc..go)$!arg
                      & (calc..export)$(Q,V)
                  )
                & ( asN
                  =   
                    .     new$(UFP,'((s.V).!V))
                        : ?calc
                      & (calc..go)$!arg
                      & (calc..export)$(N,V)
                  )
                & ( asa
                  =   
                    .     new$(UFP,'((s.V).!V))
                        : ?calc
                      & (calc..go)$!arg
                      & (calc..export)$("%a",V)
                  )
                & asQ$1/2:1/2
                & asQ$-1/2:-1/2
                & asN$1/2:0
                & asN$-1/2:0
                & asN$(-1*2^63):-9223372036854775808
                &   asN$(-1*2^63+365)
                  : -9223372036854775808
                & asN$(-1*2^53+-1):-9007199254740992
                & asN$(-1*2^53):-9007199254740992
                & asN$(-1*2^53+1):-9007199254740991
                &   asa$"0x1.fffffffffffffp+1023"
                  : "0x1.fffffffffffffp+1023"
                &   asa$"-0x1.fffffffffffffp+1023"
                  : "-0x1.fffffffffffffp+1023"
                &   asN$"-0x1.fffffffffffffp+1023"
                  : -179769313486231550856124328384506240234343437157459335924404872448581845754556114388470639943126220321960804027157371570809852884964511743044087662767600909594331927728237078876188760579532563768698654064825262115771015791463983014857704008123419459386245141723703148097529108423358883457665451722744025579520
                &   asN$"0x1.fffffffffffffp+1023"
                  : 179769313486231550856124328384506240234343437157459335924404872448581845754556114388470639943126220321960804027157371570809852884964511743044087662767600909594331927728237078876188760579532563768698654064825262115771015791463983014857704008123419459386245141723703148097529108423358883457665451722744025579520
                &     asN$"0x1.fffffffffffffp+1023"
                    + -1*2^1024
                    + 2^972
                  : 0
                &     asN$"-0x1.fffffffffffffp+1023"
                    + 2^1024
                    + -1*2^972
                  : 0
                &   asa$"0x0.0000000000001p-1022"
                  : ("0x0.0000000000001p-1022"|0x1p-1074)
                &   asa$"0x0.0000000000001p-1023"
                  : ("0x0.0000000000000p+0"|"0x0p+0")
                &   asQ$"0x0.0000000000001p-1022"
                  : 1/202402253307310618352495346718917307049556649764142118356901358027430339567995346891960383701437124495187077864316811911389808737385793476867013399940738509921517424276566361364466907742093216341239767678472745068562007483424692698618103355649159556340810056512358769552333414615230502532186327508646006263307707741093494784
                &   asQ$"0x0.0000000000001p-1022"+-1*2^-1074
                  : 0
                & (   '((s.value).!value):?code
                    & new$(UFP,!code):?test
                    & (test..go)$abc
                    & Out$"abc is not a number"
                  | 
                  )
                & (   '((s.value).!value):?code
                    & new$(UFP,!code):?test
                    & (test..go)$"100.0"
                  | Out$"100.0 is a number"
                  )
                & (   '((s.value).!value):?code
                    & new$(UFP,!code):?test
                    &   (test..go)
                      $ 555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555
                    & Out$"Too large number"
                  | 
                  )
                & (   "868.33":?val
                    & '(.$val):?code
                    & new$(UFP,!code):?test
                    &   (test..go)$
                      : "8.6833000000000004E+02"
                  | Out$"Fixed point number >= 10 not recognized"
                  )
                & (   "0x1.abcdef0456789p+1023":?val
                    & new$(UFP,'(.$val)):?test
                    &   (test..go)$
                      : "1.5020724295408577E+308"
                  | Out$"Hexadecimal value not recognized as double value."
                  )
                & (   "0x1.abcdeABCDEF678p+1023":?val
                    & new$(UFP,'(.$val)):?test
                    &   (test..go)$
                      : "1.5020722002826281E+308"
                  |   Out
                    $ "Mixed case hexadecimal value not recognized as double value."
                  )
              |   Out
                $ "Complex code containing `static' and `dynamic' arrays, `rank$', `extent$' and some whl' loops fails."
              )
            & (       new
                    $ ( UFP
                      , ( 
                        =   
                          .   5:?K
                            &   whl
                              ' ( -1+!K:?K:>0
                                & sqrt$!K:?Q
                                &   eval
                                  ' (   ", "
                                        "sqrt("
                                        (calc..export)$(N,K)
                                        ")="
                                        (calc..export)$(R,Q)
                                        !sqrts
                                    : ?sqrts
                                    )
                                )
                            & 0
                        )
                      )
                  : ?calc
                & :?sqrts
                & (calc..go)$
                & !sqrts:", " ?sqrts
                &   str$!sqrts
                  : "sqrt(1)=1.000000e+00, sqrt(2)=1.414214e+00, sqrt(3)=1.732051e+00, sqrt(4)=2.000000e+00"
              | Out$"eval not working correctly"
              )
          | Out$"No support for UFP objects."
          )
      &   out
        $ ( str
          $ ( "Done. "
              ( !errors:0&"No errors"
              | !errors:1&"1 error"
              | !errors " errors"
              )
              ". See valid.txt"
            )
          )
  );

r=
  get$("valid.bra",TXT)
& rmv$"valid.bak"
& ren$("valid.bra","valid.bak")
& put$("{valid.bra}
","valid.bra",NEW,BIN)
& lst$(Xobject,"valid.bra",APP)
& put$(\n,"valid.bra",APP,BIN)
& lst$(r,"valid.bra",APP)
& put$(\n,"valid.bra",APP,BIN)
& (   666:?aaa
    & slow:?speed
    & fast:?speed
    & "Don't write error messages to screen"
    & err$0
    & "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
  );