ML Exceptions.7  Fixing hd and tl - exception Empty; - fun hd (x::_) = x | hd [] = raise Empty; val hd = fn : a list -> a - fun tl (_::xs) = xs | tl [] = raise Empty; val tl = fn : a list -> a list Raising Exceptions - Example
{}