format STDOUT =
@<<<
$x
.
print 1;