gistfile1.txt

let map f xs (go result = []) =
    if empty? xs
        then result
        else go f (tail xs) (f (head xs) :: result)

// would be equivalent to

let map f' xs' = (
    let go f xs result =
        if empty? xs
            then result
            else go f (tail xs) (f (head xs) :: result)
    go f' xs' []
)