newRef :: [Gate] -> FeatureExpression
newRef gs = FeatureRef (foldl (++) "g" [show g | g <- gs])
newRef :: [Gate] -> FeatureExpression
newRef gs = FeatureRef (foldl (++) "g" [show g | g <- gs])
newRef gs = FeatureRef (foldl (++) "g" [show g | g <- gs])