program {
  real param;
  write ("Specify string>> ");  read(param);
  param + 1 = param;
  write (param);
}