now "when was canada born?" print
while

a lineinput val

ifless a 1867
now "early!" print
fig

ifmore a 1867
now "late!" print
fig

ifequal a 1867
now "very good!" print
break
fig

wend