euro <- c(ATS = 13.7603, BEF = 40.3399, DEM = 1.95583, ESP = 166.386,
	  FIM = 5.94573, FRF = 6.55957, IEP = .787564, ITL = 1936.27,
	  LUF = 40.3399, NLG = 2.20371, PTE = 200.482)

euro.cross <- outer(1/euro, euro)
dimnames(euro.cross) <- list(names(euro),names(euro))