>>103
case 以外からも見えていいなら普通にできるが

f x = case x of
    Just a -> g $ show a
    Nothing -> g "nothing"
  where g s = print s