<>;CORE::say$_+1&2?-1:110x($_&1).1001x($_/4)for<>