go  :- 
	repeat,
	print( 'Enter a number: ' ),
	get0( Num ), nl,
        (
          ( (Num > 58), print( 'You did not enter a number'),
				nl, fail)
          ;
          (print( 'Do it over, please. ' ), nl, fail )
        ).