let compose3 f g h = (compose f (compose g h))