#!/usr/bin/perl
use strict;
#use re 'debug';
use Data::Dumper;
$\=$/;
$Data::Dumper::Useqq=1;

print +($ARGV[0]=~/^(.*)$/s)?1:0;

utf8::upgrade $ARGV[0];
print +($ARGV[0]=~/^(.*)$/)?1:0;
print +($ARGV[0]=~/^(.*)$/s)?1:0;