Tools for the first pass of my pathfinding

Tools.fs

module Tools
open System
 
let sqr x = float(x * x) (* Square two ints into a float *)
 
(* Remove element where predicate *)
let rec remove l predicate =  
    match l with
    | [] -> []
    | hd::tl -> if predicate(hd) then
                    (remove tl predicate)
                 else
                     hd::(remove tl predicate)
 
let loadMap path =
    IO.File.ReadAllText(path).Split(';')
        |> Array.filter(fun s -> s<> String.Empty)
        |> Array.map(fun s-> Int32.Parse(s.Replace(";",String.Empty)))