procedure Gen()	
    write("Gen: Starting up...")
    suspend 3

    write("Gen: More computing...")
    suspend 7

    write("Gen: Out of gas...")
    fail  # not really needed
end