Updated corpus method for kwic.R

Now prints nicely!