% File 'typeops_meta'
%----
:- ensure_loaded(typeops).

:- import(prolog_meta).

fcall(P) :- atom(P), P.
fcall(P,A) :- atom(P),
	Gterm =.. [P,A],
	Gterm.
fcall(P,A,B) :- atom(P),
	Gterm =.. [P,A,B],
	Gterm.
fcall(P,A,B,C) :- atom(P),
	Gterm =.. [P,A,B,C],
	Gterm.
fcall(P,A,B,C,D) :- atom(P),
	Gterm =.. [P,A,B,C,D],
	Gterm.
fcall(P,A,B,C,D,E) :- atom(P),
	Gterm =.. [P,A,B,C,D,E],
	Gterm.
fcall(P,A,B,C,D,E,F) :- atom(P),
	Gterm =.. [P,A,B,C,D,E,F],
	Gterm.
fcall(P,A,B,C,D,E,F,G) :- atom(P),
	Gterm =.. [P,A,B,C,D,E,F,G],
	Gterm.
fcall(P,A,B,C,D,E,F,G,H) :- atom(P),
	Gterm =.. [P,A,B,C,D,E,F,G,H],
	Gterm.
fcall(P,A,B,C,D,E,F,G,H,I) :- atom(P),
	Gterm =.. [P,A,B,C,D,E,F,G,H,I],
	Gterm.
fcall(P,A,B,C,D,E,F,G,H,I,J) :- atom(P),
	Gterm =.. [P,A,B,C,D,E,F,G,H,I,J],
	Gterm.

flcall(P,ParList) :- atom(P),
	Gterm =.. [P | ParList],
	Gterm.