method private output_pos name = let rec iter n = function [] -> raise Not_found | h :: q -> if h#name = name then n else iter (n+1) q in iter 0 pages