14. Income Taxes (Details 1) - USD ($)	12 Months Ended
	Dec. 31, 2018	Dec. 31, 2017
Income Tax Disclosure [Abstract]
Tax benefit at federal statutory rate	$ 113,588	$ (397,038)
State income tax effect	12,602	(34,609)
Foreign income tax effect	(102,078)	37,996
Non-deductible items	492	930
Percentage depletion	(47,341)	(58,056)
Impact on change in federal tax rate	0	(6,660)
Change in prior year estimate	(95,687)	0
Change in valuation allowance - Domestic	(221,837)	229,462
Change in valuation allowance - Foreign	340,261	227,975
Gain on settlement of foreign tax assessment	(332,332)	0
Total	$ (332,332)	$ 0