if (substr($base,0,1) eq 'a') {
     if (substr($base,1,1) eq 'a') {
           return 'aa';
     }
     if (substr($base,1,1) eq 'b') {
            return 'ab'
     }
}
if (substr($base,0,1) eq 'b') {
     if (substr($base,1,1) eq 'a') {
           return 'ab'
     }
     if (substr($base,1,1) eq 'b') {
           return 'bb'
     }
}