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)
{
 ;_________0000111122223333444455556666777788889999
 s 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 
}