> let sin_asin = compose sin asin;;
val sin_asin : (float -> float)
> sin_asin 0.5;;
val it : float = 0.5