とあるリストがあって let l = [1,2,3]
この要素ひとつひとつに対して f :: Int -> IO （Maybe Int) な関数を適用して行き
Justが返ればそれ以降の処理を中止する
という処理はどう書けばいいんでしょうか？
forM l f から最初のJustを取り出す方法だと当然すべて要素に対して f を呼んでしまいます