parseCa :: Parser Command
parseCa = Ca
    <$> argument auto (metavar "H")
    <*> argument auto (metavar "K")
    <*> argument auto (metavar "L")
parseCa :: Parser Command
parseCa = Ca
    <$> argument auto (metavar "H")
    <*> argument auto (metavar "K")
    <*> argument auto (metavar "L")
parseCa = Ca
    <$> argument auto (metavar "H")
    <*> argument auto (metavar "K")
    <*> argument auto (metavar "L")