let rec vrema k a = let l = Unix.time () in poisk k a; let b = Unix.time () in let fast = (int_of_float (b-.l)) in linepoisk k a; let c = Unix.time () in let low = (int_of_float (c-.b)) in print_int (low-fast) ;;