rtnSAVE(head,code)
 s rtname=$p(head,"~",1),namespace=$p(head,"~",2)
 Znspace namespace
 s code(0)=0
 f j=1:1 s string=$p(code,$c(10),j) q:string=""  d
 . s code(j)=string
 s code(0)=j-1
 s name=rtname
 s ext="INT"
 s routine=name_"."_ext
 s options="CS" ; Compile and Save
 s errors="" ; empty list
 s return = $$ROUTINE^%R(routine,.code,.errors,options)
 s errcode=$$FMTERR^%R(.errors, .code)
 i errcode'="" d
 . s %fcgi("o","stdout",i)=errcode_$c(13,10)
 e  s %fcgi("o","stdout",i)="Compilation result: "_return_$c(13,10)
 s %fcgi("o","header","Content-Type")="text/plain" 
 q
 ;;