:f (sss-s) [ s:prepend ] sip s:prepend s:append ;
'Rosetta 'Code ': f