let val subCmnt = cmntWorker (rest)
	    in  
	     let val restCmnt = cmntWorker(#2 subCmnt)
	     in
	       ("(*"^(#1 subCmnt)^(#1 restCmnt), #2 restCmnt)
	     end
	    end