hospital4.hs working example