script with one assignment syntax fixed (s<<-NULL instead of s<-NULL)