Create d04.hs