$use StdIO Arithm;

$tfunc Fib s = s;

Fib {
	0 = 0;
	1 = 1;
	sn = <Add <Fib <Sub sn 1>> <Fib <Sub sn 2>>>;
};

Main =
	1 :: s1, <PrintLn s1 ' = ' <Fib s1>>,
	2 :: s1, <PrintLn s1 ' = ' <Fib s1>>,
	3 :: s1, <PrintLn s1 ' = ' <Fib s1>>,
	4 :: s1, <PrintLn s1 ' = ' <Fib s1>>,
	5 :: s1, <PrintLn s1 ' = ' <Fib s1>>,
	10 :: s1, <PrintLn s1 ' = ' <Fib s1>>,
	15 :: s1, <PrintLn s1 ' = ' <Fib s1>>,
	20 :: s1, <PrintLn s1 ' = ' <Fib s1>>,
	25 :: s1, <PrintLn s1 ' = ' <Fib s1>>,
	;