extraKana emap v = case lookup v emap of
  Just c -> c
  Nothing -> "????"
extraKana emap v = case lookup v emap of
  Just c -> c
  Nothing -> "????"
extraKana emap v = case lookup v emap of
  Just c -> c
  Nothing -> "????"