<p dir="ltr">This looks like a no-brainer to me:</p>
<p dir="ltr">forever :: Applicative f => f a -> f b<br>
forever a = let x = a *> x in x</p>