powerParser :: Parser Power
powerParser =
    (string "one" >> return One) <|>
    (string "one_over_two" >> return OneOverTwo) <|>
    (string "three_over_two" >> return ThreeOverTwo)
powerParser :: Parser Power
powerParser =
    (string "one" >> return One) <|>
    (string "one_over_two" >> return OneOverTwo) <|>
    (string "three_over_two" >> return ThreeOverTwo)
powerParser =
    (string "one" >> return One) <|>
    (string "one_over_two" >> return OneOverTwo) <|>
    (string "three_over_two" >> return ThreeOverTwo)