\env ->
   [ r | r <- env ! "a", 
        "ext" `isInfixOf` (fmap toLower (r !! 3)) ]