Create AccessoryFunctions.hs

Used by Qp.hs