Init: my own variation of qsort (holy fucken sheet, Haskell!)
Init: Miran's version