begin
  string(255) s = "Hello Graham"
  integer i

  i = length(s)

endofprogram