integer::X read *, X print '(i0)',1-X end