mua/in

make "pow [[a b] [
  if lt :b 1 [
    return 1
  ] [
    make "r pow :a div sub :b mod :b 2 2
    make "r mul :r :r
    if mod :b 2 [
      return mul :r :a
    ] [
      return :r
    ]
    print :r
  ]
]]

print pow 2 18

print readlist
a b c 1 2 3

make "fib_out [
    [x]
    [
        print :fib_out
        make "fib [
            [x]
            [if lt :x 2 [1] [add fib sub :x 1 fib sub :x 2]]
        ]
        fib :x
    ]
]
print fib_out 3

make "f [[x] [
  make "g [[y] [return add :x :y]]
  return g 42
]]
print f 233

make "f1 [[x] [
  make "g1 [[y] [return add :x :y]]
  return :g1
]]
make "c1 f1 42
make "c2 f1 24
print c1 1
print c2 2

make "curry_two [[f x] [
  return [[y] [return f :x :y]]
]]
make "f2 [[x y] [
  return add :x :y
]]
make "f3 curry_two :f2 42
print f3 233

make "fun [
    [x]
    [
        make "b [
            [y]
            [return make "x add :x :y]
        ]
        return :b
    ]
]
make "adder fun 5
print adder 1
print adder 2
print adder 3

print "abcd12
make "a 16
print :a
make "b "a
print thing :b
make "c mul add :a 13 :a
print if false [] [print sub :c "6]
print div 12 5
print mod 12 5
make "d read
1234dd
make "e print :d
print :e

make "prt [
  [a]
  [
      make "b [
          []
          [print :a]
      ]
      return :b
  ]
]
make "c prt "hello
c

make "x 2
print :x
make "test [
    []
    [
        make "x 1
        export "x
        print :x
    ]
]
test
print :x