procedure main()
   repeat write("SPAM")
end