let afflist t =
let rec str_list t = match t with
  |[] -> ""
  |l::k -> string_of_int l ^ str_list k
in  print_string (str_list t)
;;

let rec f_list f l =
match l with
  |[] -> []
  |x::y -> (f x) :: (f_list y)
;;