#!/usr/bin/env gbs3

Dim S As String
Dim I As Integer
Dim C As String
Dim J As Integer

For I = 1 To 1000000
	For J = 65 To 90
		C = Chr$(J)
		S &= ".(" & C & ")"
	Next
Next

Print Len(S)
Error CStr(Jit.Time)