fenCharToPicture ch = if isDigit ch
                       then toClear (digitToInt ch)
                      else
                       Empty
fenCharToPicture ch = if isDigit ch
                       then toClear (digitToInt ch)
                      else
                       Empty
fenCharToPicture ch = if isDigit ch
                       then toClear (digitToInt ch)
                      else
                       Empty