settleDown :: Mood -> Mood
settleDown x = if x == Woot
                 then Blah
                 else x
settleDown :: Mood -> Mood
settleDown x = if x == Woot
                 then Blah
                 else x
settleDown x = if x == Woot
                 then Blah
                 else x