Main program file of first attempt at path finding in F#

Program.fs

open Tools
open Level
open Pathfinding

let level1 = {width=5;height=9;map=(loadMap @"C:\Test\lvl1.txt" |> Seq.toList)}
let start = level1.GetElement 4 8
let goal = level1.GetElement 4 0
let path = pathFind(level1,goal,start,[{point=start;h=start.Distance goal;g=0.0;parent=None}],[])

let rec readPath (path:PathingNode, list:PathingNode list) =
    match path.parent.IsNone with
    | true -> list
    | false -> readPath (path.parent.Value, path.parent.Value::list)

let waypoints = readPath(path, [path])