(* Data taken from Traveline's "Edinburgh travelmap" *)
(* Excellent map available free from St Giles Street *)
(* Data sadly not very accurate, eg 23 is not        *)
(* shown as passing through Goldenacre which it does *)
(* Main, or most frequent LRT service given is   *)
val bb = "Baberton";
val bh = "Broomhouse";
val bil = "Bilston";
val bl = "Blackford";
val bn = "Barnton";
val bng = "Bonnington";
val br = "Bristo";
val brg = "Bridges";
val bs = "Brunstane/Asda";
val bt = "Bristo";
val bv = "Bellevue";
val bw = "Boswall";
val cb = "Comely Bank";
val cg = "Crigentinny";
val cgr = "Craigour";
val ch = "City Hospital";
val clm = "Clermiston";
val clv = "Clovenstone";
val clw = "Clerwood";
val cm = "Cannonmills";
val cmd="Crammond";
val cmlr = "Craigmaillar";
val cng = "Cannongate";
val co = "Colington";
val cpr = "Captains Road";
val cr = "Craiglockhart";
val cs = "Corstorphine";
val csq = "Charlotte Square";
val cwt = "Crew Toll";
val cmt ="Cameron Toll";
val cu = "Currie";
val dd = "Duddingston";
val ddh = "Danderhall";
val dk = "Dalkeith";
val dl = "Drylaw";
val dm = "Davidsons Main";
val ec = "East Craigs";
val eC = "East Calder";
val ef = "Eastfield";
val el = "Echline";
val er = "Easter Road";
val fb = "Fountainbridge";
val fbrg = "Forth Bridge";
val fh = "Ferniehill";
val fm = "Fairmilehead";
val ga = "Goldenacre"
val gb = "Gorebridge";
val gd = "Greendykes";
val gg = "Gorgie";
val ggs = "Gogar Station"
val glm = "Gilmerton";
val gM = "Grass Market";
val gmt = "Gracemount";
val gng = "Grange";
val gnt = "Granton";
val gs = "George Street";
val hb = "Hyvots Bank";
val he = "Hillend";
val hgs = "High Street";
val hm = "Haymarket";
val hr = "Holyrood";
val hs = "Hanover Street";
val ht = "Hunters Tryst";
val ig = "Inglis Green";
val kk = "Kingsknowe";
val lb = "Liberton";
val lchd = "Lochend";
val ld = "Leith Docks";
val le = "Leith";
val lg = "Longstone";
val lh = "Loanhead";
val ln = "Lady Nairne";
val lr = "London Road";
val ls = "London Street";
val lv = "Livingston";
val lw = "Leith Walk";
val mc = "Mountcastle";
val mC = "Mid Calder";
val md = "Meadowfield Drive";
val mf = "Mayfield";
val mhd = "Muirhead";
val mhs = "Muirhouse";
val mn = "Morningside";
val mm = "Marchmont";
val mr = "Milton Road";
val ms = "Musselburgh";
val my = "Myreside"
val nb = "North Bridge";
val nch = "Newcraighall";
val nd = "Niddrie";
val nh = "Newhaven";
val nf = "Northfields";
val ob = "Orchard Brae";
val ox = "Oxgangs";
val pen = "Penicuik";
val pb = "Portobello";
val pf = "Prestonfields";
val pg = "Pilrig";
val plt = "Pilton";
val pm = "Polton Mill";
val pp = "Prestonpans";
val ps = "Princes Street";
val qr = "Queensferry Road";
val ra = "Ratho";
val rc = "Riccarton Campus";
val rgr = "Regent Road";
val rm = "Royal Mile";
val rsr = "Restalrig";
val rv = "Ravelston";
val rw = "Rosewell";
val sa = "St. Andrew Square";
val sc = "Scotstoun";
val sn = "Silverknowles";
val snh = "Stenhouse";
val sgh = "Sighthill";
val sgy = "South Gyle";
val skb = "Stockbridge";
val sl = "Slateford";
val sld = "St. Leonards";
val sf = "Seafield";
val sq = "South Queensferry";
val syb = "Stoneybank";
val tc = "Tollcross";
val th = "Turnhouse";
val to = "Torphan";
val tr = "Trinity";
val tra = "Tranent";
val wl = "Wallyford";
val wh = "Wester Hailes";
val whc = "Wester Hailes Centre";
val wb = "Westburn";
val wlb = "Willowbrae";
val wm = "West Mains";
val stops = [
(1 ,[le,ga,cwt,dm,clm,cs,snh,fb,rm,er,le]),
(2 ,[nd,pb,cg,le,lw,ps,hm,cs,bh,snh,gg,hm,gM,pf,cmlr,nd]),
(3, [mf,dk,glm,brg,ps,hm,gg,sgh,wh,clv]),
(4 ,[lr,ps,hm,cr,ox,fm,he]),
(5, [co,ox,mn,gng,brg,lr,nf,mc,bs]),
(7 ,[nh,le,lw,brg,lb,gmt,cpr]),
(8 ,[hb,glm,brg,bv,cm,ga,gnt,mhs,sn]),
(9, [sa,hm,gg,sgh,eC,mC,lv]),
(10,[sn,mhs,nh,le,lw,ps,tc,cr,co,to]),
(11,[nh,pg,ps,tc,mn,fm,cpr]),
(13,[lchd,er,ls,csq,rv,bh]),
(14,[sn,mhs,bw,ga,le,lw,brg,pf,cmlr,nd,nch]),
(15,[syb,ms,ef,pb,lr,ps,tc,mn,fm]),
(16,[nh,ld,lw,ps,tc,mn,ox,ht]),
(17,[nh,le,lw,ps,tc,mn,ox]),
(18,[cmt,mm,tc,sa,csq,qr,bn,el,sq,sc]),
(19,[bw,cwt,cb,ob,csq,gs,cm,ga,bw]),
(20,[rsr,lchd,lr,sa,skb,cwt,gnt]),
(21,[sgy,wh,bh,snh,gg,hm,ps,brg,sld,pf,cmlr,gd]),
(22,[nh,le,lw,sa,hm,gg,snh,sgh]),
(23,[tr,cm,hs,tc,mn]),
(24,[bv,sa,tc,mm,mn,cm]),
(25,[nh,le,lw,sa,hm,gg,snh,sgh]),
(26,[clw,clm,cs,hm,ps,rgr,pb,ef,ms,pp]),
(27,[sn,cwt,cm,hs,tc,cr,ox,ht]),
(28,[mhs,dl,cwt,cb,hs,fb,lg,wh,clv]),
(29,[mhs,plt,cwt,cb,hs,fb,lg,wh,clv]),
(31,[fh,glm,hb,lb,brg,ps,hm,cs,ec]),
(32,[nd,pb,cg,rsr,le,nh,gnt,mhs,dl,clm,cs,bh,sgh,wh,co,ox,fm,hb,glm]),
(33,[fh,cmt,brg,ps,hm,gg,lg,wh,wb,bb]),
(34,[sgh,gg,fb,cs,skb,bng,le,lchd,lr,nb,hgs,fb,lg,sgh]),
(36,[sgy,cs,hm,ps,brg,cmt,cgr]),
(37,[sa,hm,cs,ggs,ra]),
(38,[pf,cmt,wm,bl,mn,my,gg,rv,cwt]),
(40,[gng,mm,hs,csq,qr,bn,cmd,dm]),
(41,[ch,mn,bl,mm,hs,csq,qr,dm,cmd,bn]),
(42,[cmt,cmlr,dd,pb,cg,lchd,lr,sa,wm,cmt]),
(43,[wl,ms,mr,lr,ps,hm,sl,kk,cu]),
(44,[wl,ms,mr,lr,ps,hm,sl,kk,cu]),
(45,[dd,nf,lr,hs,tc,cr,co,cu,rc]),
(47,[cm,hs,tc,cr,co,cu]),
(48,[sa,hm,cs,th]),
(49,[pb,nf,wlb,ln,md]),
(50,[ig,kk,whc]),
(55,[sa,qr,bn,fbrg]),
(60,[sa,cng,hr,br]),
(61,[sa,hm,sgh,rc]),
(62,[sa,lb,bil,"Penicuik"]),
(64,[sa,hm,cs,"Newbridge"]),
(65,[rsr,lchd,lr,ps,hm,gg,sgh,rc]),
(66,[wl,ms,pb,lr,ps,hm,sl,kk,cu]),
(69,[clw,clm,cs,hm,ps,brg,cgr]),
(70,[hm,ps,brg,lb,lh,bil,"Roslin"]),
(79,[sa,brg,cmt,ddh,dk,"Eskbank",br,pm,rw]),
(80,[pm,br,"Lasswade",lb,br,ps,skb,cb]),
(81,[sa,cb,cwt,mhs]),
(82,[rw,pm,br,dk,ddh,cmt,brg,sa,qr,bn,ec]),
(85,[clm,cs,hm,ps,rgr,pb,ms,tra]),
(86,[clm,cs,hm,ps,rgr,pb,ms,pp,tra]),
(87,[sf,lchd,lr,brg,lb,lh,bil,pen,"Ladywood"]),
(88,[pb,bs,ms,nch,"Kinnaird Park"]),
(89,[gb,"Newtongrange",mf,dk,ddh,cmt,"Surgeons Hall",hs,cm,bng,le,
	sf])
];