string.scm (make-pigpen-string): New procedure

* pigpen/string.scm (make-pigpen-string): New procedure.
  (list->pigpen-string): Use it.