[$1=~[$1-f;!*]?]f:
"Enter number: "
^f;!.