cipher.scm (print-substitution-table): New procedure

* pigpen/cipher.scm (print-substitution-table): New procedure.
  (%substitution-table): New variable.