Create euler21.hs