print: (query: 'Enter a String: ').
[| n |
  n: (Integer readFrom: (query: 'Enter an Integer: ')).
  (n is: Integer)
    ifTrue: [print: n]
    ifFalse: [inform: 'Not an integer: ' ; n printString]
] do.