gistfile1.txt

print('        .:;S;:.         .:;.;:. .:  ;:. .:;.')
print('S  S  S  /      S  S  S S  S    S    S    S;;:')
print(':;S;: :;S;: :;S;: :;S;: :;S;: ::    ')                                       
                                                   
counter = 0
while (1 == 1) {
	counter <- counter + 1
	Sys.sleep(3)
	print(paste(sample(1:10, 1),'Kw/s generated in the last second.'))
	e <-matrix(rnorm(6),2,3)
	print(e)
	if (counter == 1000) {
		break		
	}

	print('        .:;S;:.         .:;.;:. .:  ;:. .:;.')
	print('S  S  S  /      S  S  S S  S    S    S    S;;:')
	print(':;S;: :;S;: :;S;: :;S;: :;S;: ::    ')      



}
print('Finished . . ')