print"p($_)=${\map$$n+=($_%6<=>2)*${$n+$_*~-$_/6},--$n..25}
"for++$0..100