Building a Choose-Your-Own-Adventure Style Text Game Using Day 1 Haskell