--------------------------------------------------------------------------------

allApply fs xs = (length fs == length xs) && all (\(f, x) -> f x) (zip fs xs)
allApply fs xs = (length fs == length xs) && all (\(f, x) -> f x) (zip fs xs)
allApply fs xs = (length fs == length xs) && all (\(f, x) -> f x) (zip fs xs)