procedure main() while a:=read()do write((*a=1&a)|a[-1]||a[2:-1]||a[1]) end