15 lines
238 B
Text
15 lines
238 B
Text
$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>;
|
|
};
|