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

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