&set detail = -detail -standard
inmodel
&summ
    class
end
&apply -load @ 100 -force @ 100
&data env
   tempres cow ~pla@ 400 0
end_&data
&env -temp cow
struct
  lcase z #dead 0 0 0
  ssolve
end
strpost
  re
  plate  %detail
&fini