seqlength() function added

I added the seqlength() function to get the sequence length of a fa-object. This is in principle just a wrapper around the nchar() base-R command, but having an own function for this help then maybe later to write more sophisticated other functions around it.