added shell of charcount procedure
completed charcount procedure