val serve : ('a -> 'b) -> 'a -> unit