method
cut : (unit
->
unit) option =
Some
(
fun
()
->
v
#
cut)