"~{pn}" .= (T.pack $ show ~{pn})