getArrayNames (If a b c)    = (getArrayNames a `Set.union` 
                               getArrayNames b `Set.union` 
                               getArrayNames c)
getArrayNames (If a b c)    = (getArrayNames a `Set.union` 
                               getArrayNames b `Set.union` 
                               getArrayNames c)
getArrayNames (If a b c)    = (getArrayNames a `Set.union` 
                               getArrayNames b `Set.union` 
                               getArrayNames c)