~ 91 function - returns 91 for any argument < 101
"Enter a number: " ? N:
#G,N.; !

$G 1% x: x. 100 > [ x. 10 - @ ]
  #G,#G,x. 11 + ;; @