> let sin_asin = compose sin asin;;

val sin_asin : (float -> float)

> sin_asin 0.5;;
val it : float = 0.5