SetDirectory["C:\\drorbn\\AcademicPensieve\\People\\Szabo\\ComputeHFKv2"];
<< KnotTheory`
<< GST48Data.m

Alexander[pd][t]

Total[hfk/.{r_,{ad_,md_}}:>r (t^ad)(((-1))^md)]