$use StdIO Compare Arithm;
$tfunc Fib e.Exp = s.Sym;

Fib
{
  1 = 1;
  0 = 0 ;
  s.1 = <"+"<Fib <"-" s.1 1>> <Fib <"-" s.1 2>> >;
};

Main
{
= <PrintLN <Fib 28>>;
};