foldersTree = gFld("Canadian Coins", "")
aux1 = insFld(foldersTree, gFld("1963", ""))
		insDoc(aux1, gLnk(2, "1 Dollar ", "coins/1963-100.jpg"))
aux1 = insFld(foldersTree, gFld("1964", ""))
		insDoc(aux1, gLnk(2, "1 Dollar - Confederation Meetings Centennial", "coins/1964-100.jpg"))
aux1 = insFld(foldersTree, gFld("1967", ""))
		insDoc(aux1, gLnk(2, "1 Cent - 100th Anniversary of Confederation", "coins/1967-001.jpg"))
		insDoc(aux1, gLnk(2, "5 Cents - 100th Anniversary of Confederation", "coins/1967-005.jpg"))
		insDoc(aux1, gLnk(2, "10 Cents - 100th Anniversary of Confederation", "coins/1967-010.jpg"))
		insDoc(aux1, gLnk(2, "25 Cents - 100th Anniversary of Confederation", "coins/1967025.jpg"))
		insDoc(aux1, gLnk(2, "1 Dollar - 100th Anniversary of Confederation", "coins/1967-100.jpg"))
aux1 = insFld(foldersTree, gFld("1971", ""))
		insDoc(aux1, gLnk(2, "1 Dollar - British Columbia Nickel - Obverse", "coins/13903719O.jpg"))
		insDoc(aux1, gLnk(2, "1 Dollar - British Columbia Nickel - Reverse", "coins/13903719R.jpg"))
aux1 = insFld(foldersTree, gFld("1974", ""))
		insDoc(aux1, gLnk(2, "1 Dollar - Centenary of Winnipeg", "coins/1974_100a.jpg"))
aux1 = insFld(foldersTree, gFld("1982", ""))
		insDoc(aux1, gLnk(2, "50 Cents - Large Beads - Obverse", "coins/13874291O.jpg"))
		insDoc(aux1, gLnk(2, "50 Cents - Large Beads - Reverse", "coins/13874291R.jpg"))
aux1 = insFld(foldersTree, gFld("1984", ""))
		insDoc(aux1, gLnk(2, "1 Dollar - 450th Years of Jacques Cartier in Quebec", "coins/1984-100a.jpg"))
aux1 = insFld(foldersTree, gFld("1986", ""))
		insDoc(aux1, gLnk(2, "1 Dollar - Vancouver Centannial", "coins/1986-100d.jpg"))
aux1 = insFld(foldersTree, gFld("2002", ""))
		insDoc(aux1, gLnk(2, "50 Cents - Golden Jubilee ", "coins/2002_50_a.jpg"))
		insDoc(aux1, gLnk(2, "50 Cents - Canadian Festivals - Squamish Day", "coins/2002050k.jpg"))
aux1 = insFld(foldersTree, gFld("2003", ""))
		insDoc(aux1, gLnk(2, "1 Dollar - 100th Anniversary of the Cobait Silver Strike", "coins/2003x01.jpg"))
aux1 = insFld(foldersTree, gFld("2004", ""))
		insDoc(aux1, gLnk(2, "25 Cents - Remembrance Day (Poppies)", "coins/2004_025a.jpg"))
		insDoc(aux1, gLnk(2, "1 Dollar - 400th Anniversary of First French Settlement", "coins/2004x01.jpg"))
aux1 = insFld(foldersTree, gFld("2005", ""))
		insDoc(aux1, gLnk(2, "5 Cents - VE-Day 60th Anniversary", "coins/2005-005b.jpg"))
		insDoc(aux1, gLnk(2, "25 Cents - Year of Veteran", "coins/2005025c.jpg"))
		insDoc(aux1, gLnk(2, "25 Cents - 100th Anniversary of Alberta in Confederation", "coins/2005025d.jpg"))
		insDoc(aux1, gLnk(2, "25 Cents - 100th Anniversary of Saskatchewan in Confederation", "coins/2005025e.jpg"))
		insDoc(aux1, gLnk(2, "25 Cents - 60 Years of Liberation", "coins/2005025j.jpg"))
		insDoc(aux1, gLnk(2, "1 Dollars - 25th Anniversary of the Marathon of Hope", "coins/2005100c.jpg"))
		insDoc(aux1, gLnk(2, "1 Dollars - 40th Anniversary of Canada's Flag", "coins/2005x01.jpg"))
aux1 = insFld(foldersTree, gFld("2006", ""))
		insDoc(aux1, gLnk(2, "25 Cents - Breast Cancer Awareness", "coins/2006025d.jpg"))
		insDoc(aux1, gLnk(2, "25 Cents - Bravery", "coins/2006025c.jpg"))
		insDoc(aux1, gLnk(2, "25 Cents - Holiday", "coins/2006025k.jpg"))
		insDoc(aux1, gLnk(2, "1 Dollar - Lucky Loon - Flying Loon", "coins/2006100c.jpg"))
		insDoc(aux1, gLnk(2, "2 Dollars - 10th Anniversary of Polar Bear $2 Coin", "coins/2006200a.jpg"))
		insDoc(aux1, gLnk(2, "2 Dollars - 10th Anniversary of Polar Bear $2 Coin - RCM", "coins/2006200b.jpg"))
	aux2 = insFld(aux1, gFld("2006 Proof Set", ""))
		insDoc(aux2, gLnk(2, "1 Cent - Obverse", "coins/2006 Canada Proof Set/2752740-001O.jpg"))
		insDoc(aux2, gLnk(2, "1 Cent - Reverse", "coins/2006 Canada Proof Set/2752740-001R.jpg"))
		insDoc(aux2, gLnk(2, "5 Cents - Obverse", "coins/2006 Canada Proof Set/2752740-002O.jpg"))
		insDoc(aux2, gLnk(2, "5 Cents - Reverse", "coins/2006 Canada Proof Set/2752740-002R.jpg"))
		insDoc(aux2, gLnk(2, "10 Cents - Obverse", "coins/2006 Canada Proof Set/2752740-003O.jpg"))
		insDoc(aux2, gLnk(2, "10 Cents - Reverse", "coins/2006 Canada Proof Set/2752740-003R.jpg"))
		insDoc(aux2, gLnk(2, "25 Cents - Obverse", "coins/2006 Canada Proof Set/2752740-004O.jpg"))
		insDoc(aux2, gLnk(2, "25 Cents - Reverse", "coins/2006 Canada Proof Set/2752740-004R.jpg"))
		insDoc(aux2, gLnk(2, "50 Cents - Obverse", "coins/2006 Canada Proof Set/2752740-005O.jpg"))
		insDoc(aux2, gLnk(2, "50 Cents - Reverse", "coins/2006 Canada Proof Set/2752740-005R.jpg"))
		insDoc(aux2, gLnk(2, "1 Dollar - Obverse", "coins/2006 Canada Proof Set/2752740-006O.jpg"))
		insDoc(aux2, gLnk(2, "1 Dollar - Reverse", "coins/2006 Canada Proof Set/2752740-006R.jpg"))
		insDoc(aux2, gLnk(2, "2 Dollars - Obverse", "coins/2006 Canada Proof Set/2752740-007O.jpg"))
		insDoc(aux2, gLnk(2, "2 Dollars - Reverse", "coins/2006 Canada Proof Set/2752740-007R.jpg"))
aux1 = insFld(foldersTree, gFld("2007", ""))
		insDoc(aux1, gLnk(2, "25 Cents - Oh! Canada", "coins/2007025c.jpg"))
		insDoc(aux1, gLnk(2, "1 Dollars - Thayendanegea 1742-1807", "coins/2007x01.jpg"))
aux1 = insFld(foldersTree, gFld("2008", ""))
		insDoc(aux1, gLnk(2, "25 Cents - Armistice - Poppy", "coins/2008-025j.jpg"))
		insDoc(aux1, gLnk(2, "25 Cents - Oh! Canada", "coins/2008-025h.jpg"))
		insDoc(aux1, gLnk(2, "50 Cents - End of World War I 90th Anniversary", "coins/2008-050j.jpg"))
		insDoc(aux1, gLnk(2, "1 Dollar - Lucky Loon - Olympic Logo", "coins/2008-100b.jpg"))
		insDoc(aux1, gLnk(2, "1 Dollar - 400th Anniversary of Quebec City", "coins/2008x01.jpg"))
		insDoc(aux1, gLnk(2, "20 Dollars - The Royal Hudson 4-6-4 Locomotive", "coins/2008x01_train.jpg"))
aux1 = insFld(foldersTree, gFld("2008-2009 Vignettes of Royalty", ""))
		insDoc(aux1, gLnk(2, "Common Observe ", "coins/VignettesofRoyalty-2-obv.jpg"))
		insDoc(aux1, gLnk(2, "$15 Queen Victoria ", "coins/VignettesofRoyalty-1-rev.jpg"))
		insDoc(aux1, gLnk(2, "$15 King Edward VII ", "coins/VignettesofRoyalty-2-rev.jpg"))
		insDoc(aux1, gLnk(2, "$15 King George V ", "coins/VignettesofRoyalty-3-rev.jpg"))
		insDoc(aux1, gLnk(2, "$15 King George VI ", "coins/VignettesofRoyalty-4-rev.jpg"))
		insDoc(aux1, gLnk(2, "$15 Queen Elizabeth II ", "coins/VignettesofRoyalty-5-rev.jpg"))
aux1 = insFld(foldersTree, gFld("2009", ""))
		insDoc(aux1, gLnk(2, "25 Cents - Oh! Canada", "coins/2009-025h.jpg"))
		insDoc(aux1, gLnk(2, "20 Dollars - Jubilee 4-4-4 Locomotive", "coins/2009x01_train.jpg"))
aux1 = insFld(foldersTree, gFld("2011", ""))
		insDoc(aux1, gLnk(2, "25 Cents - Wedding of HRH Prince William of Wales - obverse", "coins/2011-Royal Wedding-Obv.jpg"))
		insDoc(aux1, gLnk(2, "25 Cents - Wedding of HRH Prince William of Wales - reverse", "coins/2011-Royal Wedding-Rev.jpg"))