module NotatieFuncties

import StdEnv

f1			:: Int
f1			= 1 + 5

f2			:: Int
f2			= (+) 1 5

f3			:: Int Int -> Int
f3 m n
| m < n		= m
| otherwise	= n

f4			:: String Int -> String
f4 s n
| n <= 0	= ""
| otherwise	= s +++ f4 s (n-1)

f5			:: Int Int -> Int
f5 x 0		= x
f5 x y		= f5 y (x rem y)

f6			:: (Int,Int) -> Int
f6 x		= fst x + snd x

f7			:: (a,b) -> (b,a)
f7 (a,b)	= (b,a)

f8			:: (a,a) -> (a,a)
f8 x		= f7 (f7 x)

//Start		= (f3 1 5, f3 4 3, f3 6 6)
//Start		= f4 "ab" 4
//Start		= (f5 13 5, f5 8 4, f5 20 20)
//Start		= f6 (2,3)
//Start		= f7 (5,7)
Start		= f8 (5,7)