{loop $data $n $r}

{str_cut($r[title], $titlelen)}

{/loop}