trying pascal string packing