perms [] = [[]]
    perms (x:xs) = concat.(map $ \list -> inject x list) $ perms xs
        where
            inject x list = map (\p -> (take p list) ++ [x] ++ (drop p list)) [0..last]
                where
                    last = length list