char.scm (string->pigpen-char): New procedure