I count 136 symbols in my solution (thanks Dmitry Maslennikov for advice)

p(t) public{ s s="" f i=1:1:$l(t){s p=$f(" #######abc#def#ghi#jkl#mno#pqrstuv#wxyz",$e(t,i))-2 s:p\4=$e(s,*) s=s_" " f j=1:1:p#4+1 s s=s_(p\4)} q s }

long variant: 

p(text) public{s str="" for i=1:1:$l(text){;_________0000111122223333444455556666777788889999s pos=$f(" #######abc#def#ghi#jkl#mno#pqrstuv#wxyz",$e(text,i))-2 s:pos\4=$e(str,*) str=str_" " for j=1:1:pos#4+1 s str=str_(pos\4)} q str }