BEGIN
STRING(40) S,T,U
      S=""
      S=S."CONCATENATION "
      T="SEEMS TO "
      S=S.T."WORK OK"
      S=S."!"
      PRINTSTRING(S)
ENDOFPROGRAM