start_up = proc ()
    po: stream := stream$primary_output()

    words: array[string] := array[string]$
        ["enemy", "lasagna", "robust", "below", "wax"]

    for word: string in array[string]$elements(words) do
        stream$putl(po, word)
    end
end start_up