begin
  routine fifteen(string(15) s)
    printstring(s)
    newline
  end

  on event 6 start
    print string("A string capacity exceeded fault was trapped."); new line
    stop
  finish

  string(7) seven = "abcdefg"
  string(31) thirty one = "0123456789012345678901234567890"

  fifteen(thirty one)
  fifteen(seven)
  
endofprogram