handle applied ctor arguments gracefully when computing 'callssss' (for recursion through functions)
(* Load this theory to start the WWW_Find server on port defined by environment
variable "SCGIPORT". Used by the isabelle wwwfind tool.
*)
theory Start_WWW_Find imports WWW_Find begin
ML {*
val port = Markup.parse_int (getenv "SCGIPORT");
ScgiServer.server' 10 "/" port;
*}
end