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