> (string "二" >> return 2)
  <|> (string "三" >> return 3)
  <|> (string "四" >> return 4)
  <|> (string "五" >> return 5)
  <|> (string "六" >> return 6)
  <|> (string "七" >> return 7)
  <|> (string "八" >> return 8)
  <|> (string "九" >> return 9)

kanjiKoma =
      (string "歩" >> return FU)
  <|> (string "香" 
kanjiNum =
      (string "一" >> return 1)
  <|> (string "二" >> return 2)
  <|> (string "三" >> return 3)
  <|> (string "四" >> return 4)
  <|> (string "五" >> return 5)
  <|> (string "六" >> return 6)
  <|> (string "七" >> return 7)
  <|> (string "八" >> return 8)
  <|> (string "九" >> return 9)
kanjiNum =
      (string "一" >> return 1)
  <|> (string "二" >> return 2)
  <|> (string "三" >> return 3)
  <|> (string "四" >> return 4)
  <|> (string "五" >> return 5)
  <|> (string "六" >> return 6)
  <|> (string "七" >> return 7)
  <|> (string "八" >> return 8)
  <|> (string "九" >> return 9)