module Wutil_once: sig .. end
sig
end
once f
val once : ('a -> 'b) -> 'a -> 'b
('a -> 'b) -> 'a -> 'b