RosettaCodeData/Task/Fibonacci-sequence/Refal/fibonacci-sequence.refal

$ENTRY Go {
    = <Prout <Repeat 18 Fibonacci 1 1>>
} ;

Repeat {
    0   s.F e.X = e.X;
    s.N s.F e.X = <Repeat <- s.N 1> s.F <Mu s.F e.X>>;
};

Fibonacci {
    e.X s.A s.B = e.X s.A s.B <+ s.A s.B>;
};