print $ph->[$ph->[0]{alpha}], "\n";
print $ph->[$ph->[0]{epsilon}], "\n";