link printf
procedure main()
    cur_line := 0
    cur_page := 1
    page := "<control-L>"
    page := "\^L"
    pages_per_sheet := 4
    while line := read() do {
        if line == "<new-page>" then {
            write(page)
            cur_line := 0
            cur_page +:= 1
            next
            }
        if line == "<end-student>" then {
            r := (cur_page - 1) % pages_per_sheet
            if r ~= 0 then {
			    skip := pages_per_sheet - r
                every 1 to skip do
                    write(page)
                cur_page +:= skip
                }
            cur_line := 0
            next
            }
        cur_line +:= 1
        write(line)
        if cur_line = 64 then {
            write(page)
            cur_line := 0
            cur_page +:= 1
            }
        }
end