module Main  where{
import List;

test_print::Integer->IO();
test_print integer = putStrLn $ show $
last $ (map (tup_odd integer))$ (tails [0..]);

tup_odd::Integer->[Int]->(Int,Bool);
tup_odd integer l = ((head l),(0 == integer));

main::IO();
main = (mapM_ test_print [0,1])
}