$ENTRY Go {
    = <Show 0 25>
      <Show 250 265>
      <Show 1000 1025>;
};

Nth {
    s.N, <Symb s.N>: {
        e.X '1' s.Y = e.X '1' s.Y 'th';
        e.X '1' = e.X '1st';
        e.X '2' = e.X '2nd';
        e.X '3' = e.X '3rd';
        e.X = e.X 'th';
    };
};

Cell {
    s.N, <First 8 <Nth s.N> '        '>: (e.1) e.2 = e.1;
}

Group {
    s.N e.1 = <Group (s.N s.N) () e.1>;
    (s.N s.M) (e.1) = (e.1);
    (s.N 0) (e.1) e.2 = (e.1) <Group (s.N s.N) () e.2>;
    (s.N s.M) (e.1) s.2 e.3 = <Group (s.N <- s.M 1>) (e.1 s.2) e.3>;
};

Iota {
    s.End s.End = s.End;
    s.Start s.End = s.Start <Iota <+ s.Start 1> s.End>;
};

Each {
    s.F = ;
    s.F t.I e.X = <Mu s.F t.I> <Each s.F e.X>;
};

ShowLine {
    (e.Line) = <Prout <Each Cell e.Line>>;
};

Show {
    s.Start s.End,
        <Iota s.Start s.End>: e.Range,
        <Group 10 e.Range>: e.Lines
        = <Prout <Each ShowLine e.Lines>>;
};