fac 5 where fac n is if n=0 then 1 else n* fac (n-1)

\


take { 5 } iterate { succ } 0 where succ x is x+1

\


fib is 1:1:zipwith { + fib (tail fib)

take { 5 } fib


\

0 M\C where (M is [2 3 1 5;2 3 5 5;2 3 5 5;4 5 5 5;4 5 5 5])
      where C is 2 0 0 1 0

append { [1;2;3][4;5;6]

one eq two where (one is 1:two) where two is 2:one

fib is 1:1:zipwith { + fib (tail fib)
head tail tail fib

int is 0:1:zipwith { + 1 (tail int)
at { 10 int

reverse[1;2 3;4 5 6]

until { five dec 10 where (five x is x=5) where dec x is x-1

at { 5 fib

one is 1:two
two is 2:one

(at { 0 one)+at { 0 two

(head one):head tail one

(head one):head tail one

(head tail tail tail tail one)+at { 5 two

f h 3 where (f x is g x where g x is x+1) where h x is !x

(f/g\5+!3) where (f x y is plus { x y where (plus x y is x+y)) where g x y is x*y

+/*\5+!3

+/!3

+/+\!3

f { 1 } 2 } 3 where f x y z is x+y-z 

fac 5 where fac n is if n=0 then 1 else n*fac n-1

\\ C I 5(Y(B(S(C(B cond(C = 0))1))(B(S *)(C B(C - 1)))))

(!3)+!3

f 1 where f x is in { x 1 2 3

plus { (1)(2)3 where plus x y z is x+y+z

(head [1;2;3])+head tail [4;5;6]

tail tail [1;2;3;4]

tail tail [1;[2;3 4]]

f [1;2 3 4] where f x is (head x):tail x

(first 10)(!-1) where first x y is x

[;;;]
[[2+3;9-10];-7*8;4-5]
[]
[;;;]