johannesvogel

# set Maildir
MAILDIR = "$HOME/Maildir"

# forward all emails sent to "@mydomain.de"
# to "myemailaddress@outlook.com"
if (/^To:.*@mydomain\.de/:h)
{
  to "!myemailaddress@outlook.com"
  exit
}

johannesvogel

main = do
    money <- getLine
    mapM putStr $ coins [200, 100, 50, 20, 10, 5, 2, 1] (read money)

coins [] _ = []
coins (x:xs) y
    | x <= y = (coin x) : coins (x:xs) (y-x)
    | x > y  = coins xs y

coin x