qbasic printing factorial number