begin
  routine fifteen(string(15) s)
    printstring(s)
    newline
  end
  string(7) seven = "abcdefg"
  string(31) thirty one = "0123456789012345678901234567890"

  fifteen(thirty one)
  fifteen(seven)
  
endofprogram