# Capturing Output

By taking advantage of the hook in `c:put`, it's possible to
write a combinator to capture output to a user specified
buffer.

~~~
{{
  :capture{  &buffer:add &c:put set-hook ;
  :}         &c:put unhook ;
---reveal---
  :capture-output (qa-)
    [ buffer:set capture{ call } ] buffer:preserve ;
}}
~~~

## A Test Case

```
'Output d:create #256 #1024 * n:inc allot
[ d:words ] &Output capture-output
Output s:length n:put nl
```