replace liftIO PutStrLn with logMessage
Rename main to simplesupervisor
Format for legibility in emacs