Shine Dalgarno Sequence Function Haskell