Add formatter for strict text

The first function I wrote to use text-format was this:

```
-- | A wrapper around `format` that returns a strict Text
sformat :: Params ps => Format -> ps -> Text
sformat f ps = toStrict (format f ps)
```

Perhaps that should be included in the library itself? (And the name `format'` might be more intuitive to folks).