zr-tex8r

\documentclass[a4paper]{article}
\makeatletter %!!!!!!!!!!!!!!!!!!!!!!!!! TeX code BEGIN

%% 変数
\newif\ifmy@ok % 真偽値の返り値専用のスイッチ
\let\my@ret\relax % トークン列返り値専用のマクロ
\newcount\my@m
\newcount\my@mm
\newcount\my@n
\newbox\my@box

kmaed

%% 眠れないので書いた．etoolbox.sty を読むと勉強になるなあ（つらい）．

%% まずは基本形で準備運動．
%% 一度保存された，パラメータ文字を含むトークン列を定義とする，
%% パラメータをとるマクロを定義したいとする．
\def\a{##2##1}                  % カテゴリコードが6である限り，# は二重にせざるをえない．
\expandafter\def\expandafter\b\expandafter#\expandafter1\expandafter#\expandafter2\expandafter{\a}
\show\b                         % #1#2->#2#1
%% これはひどい．\edef 使いましょうよ．
\edef\b{%

zr-tex8r

% pxghost.sty
%% package declaration
\NeedsTeXFormat{pLaTeX2e}
\ProvidesPackage{pxghost}
%% preparations
\def\pxqgg@pkgname{pxghost}
%---------------------------------------
  % use an arbitrary font available in T1 encoding
\font\pxqgg@TI=ec-lmr10 at 1.23456pt
\chardef\pxqgg@cwm=23 % compwordmark (in T1)