%BEGIN
%OWNSTRING(10) A="0123456789"
      WRITE(LENGTH(A),4)
      NEWLINE
      PRINTSTRING(A)
%ENDOFPROGRAM