\lB で \mathbb{B}を出すマクロ (after しゃいたん)

元ネタは arXiv:1404.7088 ．で，\lB と打つと ${\mathbb{B}}$ が出るという，視覚的に素晴らしいアイデアである！
もちろん，\newcommand で\lA \lBとかを追加しまくればよいのだけれど，もっとクールにしたい．（というか，\mathcal とかもやりたいから短いマクロがあると嬉しい．）
しゃいたんに作ってもらいました！スーパーハカー！！詳しくは下を参照のこと．

TeXを使ってすみちゃまともっと仲良しになる方法（\lBで\mathbb{B}を出したい） - shaitan's blog

ちょこっといじることで，\cH で \mathcal{H}，\fH で \mathfrak{H}，\gh で \mathfrak{h}が出るように出来ます．
自明だけど一応下に載せておきます．

\makeatletter %\fB => \mathfrak{B}, \gb => \mathfrak{b}, \lB => \mathbb{B}, \cB => \mathcal{B}
\@tempcnta\z@
\loop\ifnum\@tempcnta<26
\advance\@tempcnta\@ne
\expandafter\edef\csname f\@Alph\@tempcnta\endcsname{\noexpand\mathfrak{\@Alph\@tempcnta}}
\expandafter\edef\csname g\@alph\@tempcnta\endcsname{\noexpand\mathfrak{\@alph\@tempcnta}}
\expandafter\edef\csname l\@Alph\@tempcnta\endcsname{\noexpand\mathbb{\@Alph\@tempcnta}}
\expandafter\edef\csname c\@Alph\@tempcnta\endcsname{\noexpand\mathcal{\@Alph\@tempcnta}}
\repeat