let filterAndReturn seq func =
    seq
    |> Seq.filter (fun a -> (fst (func a)) = true)
    |> Seq.map (fun a -> snd (func a))
    |> Seq.toList

filterAndReturn (List.toSeq ["1";"2";"3"]) (fun a -> System.Int32.TryParse a)