let keep_alpha_nums s =
  let len = String.length s in
  let b = Buffer.create len in
  for i = 0 to len - 1 do
    match s.[i] with
      'a'..'z'
    | 'A'..'Z'
    | '0'..'9' -> Buffer.add_char b s.[i]
    | _ -> ()
  done;
  Buffer.contents b