findM (\a -> putStr (show a <> " ") >> pure False) [1..10]
findM (\a -> putStr (show a <> " ") >> pure True) [1..10]