main=interact(>>= \x->([x]:mapM(\_->"01")[1..4])!!length['-'..x])