%%HP: T(3)A(R)F(.);
@ @ @  KONTROLA A NORMALIZACE ARGUMENTU
@ List ENVNORM(List args);
\<<
@ Jsou argumenty vsechny a maji spravne typy?
  IF
    ENVACHK		@	0.|1.	{a}|errt
  THEN			@	errtext
    "ERROR: "		@	"ERROR	errtext
    SWAP		@	errtext	"ERROR
    +			@	report
    DOERR
  END			@	{args}
@ Pocty museji byt mocninami cisla 2
  DUP			@	{args}	{args}
  2.			@	iper	{args}	{args}
  3.			@	irep	iper	{args}	{args}
  SUB			@	{nums}	{args}
  \<< ABS LN 2. LN / CEIL 2. SWAP ^
  \>>			@	\<< \>>	{nums}	{args}
  MAP			@	{nums}	{args}
@ Z options odstranit nezname znaky
  OVER			@	{args}	{nums}	{args}
  4.			@	iopt	{args}	{nums}	{args}
  GET			@	options	{nums}	{args}
  ENVOPTS		@	# 4h	options	{nums}	{args}
  DROP			@	options	{nums}	{args}
@ Pocty a options ulozit zpet
  +			@	{n+o}	{args}
  2.			@	index	{n+o}	{args}
  SWAP			@	{n+o}	index	{args}
  REPL			@	{args}
\>>