routine
fancy4(
integer
name
param)
end
endoffile