module Symbol where

import SlideWare

[salpha,sbeta,schi,sdelta,sepsilon,sphi,sgamma,seta,siota,svarphi,skappa,slambda,
 smu,snu,so,spi,stheta,srho,ssigma,stau,suXXX,somegabar,somega,sxi,spsi,szeta] =
  map (sy . (:[])) ['a'..'z']

[sAlpha,sBeta,sChi,sDelta,sEpsilon,sPhi,sGamma,sEta,sIota,svartheta,sKappa,sLambda,
 sMu,sNu,sO,sPi,sTheta,sRho,sSigma,sTau,sUxxx,svarsigma,sOmega,sXi,sPsi,sZeta] =
  map (sy . (:[])) ['A'..'Z']

[sforall,sexist,sni,scong,sddd,sbot] =
  map sy ["\"", "$", "'","@","\\","^"]