begin

  string(255) x, s
  
  integer i
  string(255)name sn
  string(255)array sra(0:9)
  string(255)namearray sna(0:9)
  string(255)namearrayname snan
  string(255)map sm(integer i); result == s; end
  sn == s
  x = s
  x = sn
  sn = x
  x = sra(i)
  sn == sra(i)
  x = sra(i)
  sra(i) = x
  sn == sna(i)
  x = sna(i)
  sna(i) = x
  snan == sna
  sn == snan(i)
  x = snan(i)
  snan(i) = x
  x = sm(i)
  sn == sm(i)
  sm(i) = x
endofprogram