(defn neme&age&gender [n]
  (case n
      [0 "all"] (list "tanaka" 11 "M" )
      [0 "neme"] "tanaka"
      [0 "age"] 11
      [0 "gender"] "M"
      [1 "all"] (list "ohnisi" 13 "W" )
      [1 "neme"] "ohnisi"
      [1 "age"] 13
      [1 "gendar"] "W"
      [2 "all"] (list "sasaki" 13 "W" )
      [2 "neme"] "sasaki"
      [2 "age"] 13
      [2 "gender"] "W"
      [3 "all"] (list "ichino" 12 "M" )
      [3 "neme"] "ichino"
      [3 "age"] 13
      [3 "gender"] "M"
      [4 "all"] (list "I" 13 "M" )
      [4 "neme"] "I"
      [4 "age"] 13
      [4 "gendar"] "M"
    "Unknown")) ;; どれにも当てはまらない場合のデフォルト値

(println (neme&age&gender [1 "all"]))
(println (neme&age&gender [3 "neme"]))