$<.map{|l|p 2[1-(l.to_i(2)*8+1)**0.5%1]}
p 2[1-($_.to_i(2)*8+1)**0.5%1]while gets
p 2[1+($_.to_i(2)*8+1)**0.5%-1]while gets #-
p 2[1--~($_.to_i(2)*8)**0.5%1]while gets

p 2[1--~($_.to_i(2)*8)**0.5%1]while gets


__END__

dw{p 2[1-(1+8*gt.toi(2))**0.5%1]}

$<.map{|l|p (1-(l.to_i(2)*8+1)**0.5).to_i}

$<.map{|l|p (l.to_i(2)*8+1)**0.5%1>0?0:1}
$<.map{|l|p 1[(l.to_i(2)*8+1)**0.5%1*$$]}
$<.map{|l|p 1>>(l.to_i(2)*8+1)**0.5%1*$$}
$<.map{|l|p 0**((l.to_i(2)*8+1)**0.5%1)}

eval"p (1+8*0b%s)**0.5%%1>0?0:1;"*50%$<.to_a
eval"p 0.**0b%s001**0.5%%1;"*50%gets(p).split