module Main  where{
import List;

test_print::Integer->IO(());
test_print exponent = (putStrLn(show(last((map (twin_real_test_2 exponent))(tails((enumFrom 0)))))));
twin_real_test_2::Integer->[](Int)->(Int,Bool);
twin_real_test_2 base_point candidates_tail = (case candidates_tail of {
  ((:)(_) ((:)(middle) ((:)(_) (_))))->(middle,((==) 1 (mod base_point 2)))
});
main::IO(());
main = (mapM_ test_print [0,1])
}