t
fromPos = do
  char '('
  x <- digitToInt <$> digit
  y <- digitToInt <$> digit
  char ')'
  return $ PlaceFormat x y

zenkakuNum =
      (string
fromPos :: Parser PlaceFormat
fromPos = do
  char '('
  x <- digitToInt <$> digit
  y <- digitToInt <$> digit
  char ')'
  return $ PlaceFormat x y
fromPos = do
  char '('
  x <- digitToInt <$> digit
  y <- digitToInt <$> digit
  char ')'
  return $ PlaceFormat x y