$/=get.words;words~~say [|@$_,[+^] $_][+^-$1%-+^$0]