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