(system (concatenate 'string "chgrp emtek " s))
(system (concatenate 'string "chmod g+w " s))
(system (concatenate 'string "chmod g+s " s))