can : ('a -> 'b) -> 'a -> bool
# can hd [1;2];; val it : bool = true # can hd [];; val it : bool = false