/**  Print Pochammers in standard notation **/
/*A: K McIsaac*/
/*S: University of Western Australia, Nedlands 6009, Australia*/
/*D: December, 1986 */
/*K: Format, Pochammer */


_Poc[Pr]: Tier[{[$x,$y]: Fmt[{{0,0},{1,-1}},Fmt[Null,"(",$x,")"],\
	      $y]}]

