>>135
こんなんでどうですか。

/concat {
　　2 copy length exch length add string
　　dup dup 5 -1 roll exch copy
　　length 4 -1 roll putinterval
} def

(abcd) (efgh) concat
=> (abcdefgh)