can : ('a -> 'b) -> 'a -> bool
- hd []; ! Uncaught exception: ! Empty - can hd []; > val it = false : bool - can (fn _ => raise Interrupt) 3; > Interrupted.