print"p($_)=${\map${$'-$_.$_}=$a+=${$'.$_},-$_..-($a=//)}
"for 1..100