asci:-write('Enter the letter: '),get(L),write('The asci of: '),
	write('the letter' ),write('is: '), write(L).