Module Comonadic.Per_axis

For interfacing with the user only; potentially slow.

val zap_to_floor : 'a Axis.t -> ('a, allowed * 'r) mode -> 'a
val zap_to_ceil : 'a Axis.t -> ('a, 'l * allowed) mode -> 'a