RosettaCodeData/Task/Binary-digits/Refal/binary-digits.refal

$ENTRY Go {
    = <Prout <Binary 5>
             <Binary 50>
             <Binary 9000>>;
};

Binary {
    0 = '0\n';
    s.N = <Binary1 s.N> '\n';
};

Binary1 {
    0 = ;
    s.N, <Divmod s.N 2>: (s.R) s.D = <Binary1 s.R> <Symb s.D>;
};