While loop test program