main :: [sys_message]
main = repeat (Stdout "SPAM\n")