while ($input ne "end")