let rec choose k = let file = Printf.sprintf "wp%d.script" k in if Sys.file_exists file then choose (succ k) else file