$use StdIO Arithm;

$func ParFib s = s;

ParFib {
	19 = <Fib 19>;
	20 = <Fib 20>;
	sn = <Add <ParFib <Sub sn 1>> <ParFib <Sub sn 2>>>;
};

$func Fib s = s;

Fib {
	1 = 1;
	2 = 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>>,*/
	30 :: s1, <PrintLn s1 ' = ' <ParFib s1>>,
	;