fun razmak(nil)=0 | razmak(h::t)= if ord (#" ") = ord (h) then (razmak(t)+1) else razmak(t); 

fun prva(nil)=nil | prva(h::t) = if ord (#" ") = ord (h) then nil else [h]@prva(t);

val f2 = implode o prva o explode; 						(* prva rijec *)		
val f4 = razmak o explode; 							(* broj razmaka *)
fun druga x = substring(x,f4(x)+size(f2(x)), size(x)-(f4(x)+size(f2(x))))	(* druga rijec *)

fun konacna x = f2(x) ^ str(chr(ord(#"0") + f4 (x))) ^ druga x;