<>;print$_+0,$",y/ //-1?0:1,$/for`factor @{[map$_+0,<>]}`