procedure main()
s1 := "hello"
write(s2 := s1 || " there.")  # capture the reuslt for
write(s2)                     # ... the 2nd write
end