#!/usr/bin/perl
print+(map{$ARGV[0]^y/1//&1}map{unpack'B*',$_}0..pop||50-1),"
"
