processNt1 :: ASTAnalysis
           -> [NtRoot]
           -> (ASTAnalysis -> NtRoot -> M a)
           -> M [a]
processNt1 aa nt1s f = mapM (local . f aa) nt1s
processNt1 :: ASTAnalysis
           -> [NtRoot]
           -> (ASTAnalysis -> NtRoot -> M a)
           -> M [a]
processNt1 aa nt1s f = mapM (local . f aa) nt1s
processNt1 aa nt1s f = mapM (local . f aa) nt1s