let rec proper_map f = function
  | [] -> []
  | x::xs -> f x :: map f xs

let rec student_map f l =
  let new_list = ref [] in
  for i = 0 to List.length l - 1 do
    new_list := List.append new_list [List.nth i l]
  done;
  new_list