Ignore compiled .hs files, which lack an extension
We only need to map once

Instead of mapping twice, map once with a composed function:

    let arrayOfStrings = map show arrayOfNumbers
    mapM_ putStrLn

becomes

    mapM_ (putStrLn . show) arrayOfNumbers

Wow!