print "The number in binary is: ", ($binc1 ? '1' : '0'), "\n";