/*K: Hg, Hypergeometric, Gauss, format, print*/
/*A: K McIsaac*/
/*S: UWA, Nedlands 6009, Australia*/
/*D: July, 1985*/

/*: 
	Writes Hg in Ghg format*/

Hg_:Tier
Hg[$a,$b,$c,$z] :: Ghg[2,1,#[$a,$b],#[$c],$z]


/*E:
SMP 1.5.0
Wed Jul 24 12:23:50 1985


#I[1]::  <XHgPR

#O[1]:   ' Ghg[2,1,#[$a,$b],#[$c],$z]

#I[2]::  Hg[1,1,1/2,z]

#O[2]:   Ghg[2,1,#[1,1],#[1/2],z]

#I[3]::  <end>
*/
