get "libhdr"

let start() be
    for i = 1 to 10
    $(  writen(i)
        if i rem 5 = 0
        $(  wrch('*N')
            loop
        $)
        writes(", ")
    $)