perl -le'for$-(1..15){$==17-$--$_,print"$_+$-+$==17"for($-..16-$-)}'