char.scm (<pigpen-char>): Print a character in "write" style
char.scm (list->pigpen-char): Accept a cipher as the 2nd argument

* pigpen/char.scm (list->pigpen-char): Accept a cipher as the 2nd
  argument.
  (string->pigpen-char): Likewise.