buildArr la a b f = res
    where
        res = la (a, b) (map (f (res !)) [a .. b])
buildArr la a b f = res
    where
        res = la (a, b) (map (f (res !)) [a .. b])
buildArr la a b f = res
    where
        res = la (a, b) (map (f (res !)) [a .. b])