try this. added some tryputmvars instead. and put back print fst p1/p2 in forks.