$use StdIO;

$tfunc Fib e = e;

Fib {
	/*empty*/  = '0';
	'I'        = '1';
	'I' 'I' e1 = <Fib e1> <Fib 'I' e1>;
};

Main =
	'I' :: e1, <PrintLn e1 ' = ' <Fib e1>>,
	'II' :: e1, <PrintLn e1 ' = ' <Fib e1>>,
	'III' :: e1, <PrintLn e1 ' = ' <Fib e1>>,
	'IIII' :: e1, <PrintLn e1 ' = ' <Fib e1>>,
	'IIIII' :: e1, <PrintLn e1 ' = ' <Fib e1>>,
	'IIIIIIIIII' :: e1, <PrintLn e1 ' = ' <Fib e1>>,
	'IIIIIIIIIIIIIII' :: e1, <PrintLn e1 ' = ' <Fib e1>>,
	;