Have you thought about ``printf``?  Maybe something like:

```factor
[ length ] keep "$%s\r\n%s\r\n" printf
```