join . liftM :: (r -> r) -> r -> r

これ何の使い道あるんですか？