Module Squash

val keep_area : float -> float * float
val landing : amount:float -> float -> float