# CJam, 38 bytes

    li(__,:)_@f-\{_W=_I-_3$\#)@I+@?+}fI\~>

[Try it online.](http://cjam.aditsu.net/ "CJam interpreter")