Create asciiExOne.hs

Makes fun ascii with the i/o monad.