Fix pattern match so that alist can be of any size
Abuse PatternSynonyms :)

Thanks to `Iceland_jack` on #haskell