#!perl -nl
%h=map(($_,1),split//);print keys(%h)%2