cat $1 | tr '\n' ' ' | tr ';' '\n' | grep class_new | gsed -nr 's/.+gensym\("(\w+)"\).+/\1/p'
cat $1 | tr '\n' ' ' | tr ';' '\n' | grep class_new | gsed -nr 's/.+gensym\("(\w+~)"\).+/\1/p'