13. Income Taxes (Details 3) - USD ($)	12 Months Ended
	Dec. 31, 2017	Dec. 31, 2016
Income Tax Disclosure [Abstract]
Tax benefit at federal statutory rate	$ (397,038)	$ (353,872)
State income tax effect	(34,609)	(21,754)
Foreign income tax effect	37,996	37,371
Non-deductible items	930	3,263
Percentage depletion	(58,056)	(40,976)
Change in valuation allowance - Domestic	229,462	151,745
Change in valuation allowance - Foreign	227,975	224,223
Impact on change in federal tax rate	(6,660)	0
Foreign tax assessment	0	285,048
Alternative minimum tax - Domestic	0	13,090
Total	$ 0	$ 298,138