let
forever f x = ignore (
while
true
do
f x
done
)