{-# htermination return :: a -> Maybe a #-}