dim c[16]

let c[0] = 1

for n = 0 to 15

	let p = n + 1
	let c[p] = 0

	for i = 0 to n

		let q = n - i
		let c[p] = c[p] + c[i] * c[q]

	next i

	print n, " ", c[n]

next n