laceFormat)
toPos =
  (do
    string "同"
    skipMany (string "　")
    return Nothing)
  <|> do
    x <- zenkakuNum
    y <- kanjiNum
    return $ Just $ PlaceFormat x y

fromPos :: Parser PlaceFor
toPos :: Parser (Maybe PlaceFormat)
toPos =
  (do
    string "同"
    skipMany (string "　")
    return Nothing)
  <|> do
    x <- zenkakuNum
    y <- kanjiNum
    return $ Just $ PlaceFormat x y
toPos =
  (do
    string "同"
    skipMany (string "　")
    return Nothing)
  <|> do
    x <- zenkakuNum
    y <- kanjiNum
    return $ Just $ PlaceFormat x y