s string="Hello world!"
  w "Original string: ",string,!
  w "Substring: ",$extract(string,1,5),!