I'm unhappy about the way `primeFactors` handles negative numbers.

**Expected:** Negative numbers are factored so that there are some prime numbers in the output and perhaps a (-1).

**Actual:** Negative numbers are returned as a singleton list.

**Example:**
```
> primeFactors 100
[2,2,5,5]
> primeFactors (-100)
[-100]
```