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