diff options
Diffstat (limited to 'ipl/gpacks/weaving/expand.icn')
| -rw-r--r-- | ipl/gpacks/weaving/expand.icn | 31 |
1 files changed, 31 insertions, 0 deletions
diff --git a/ipl/gpacks/weaving/expand.icn b/ipl/gpacks/weaving/expand.icn new file mode 100644 index 0000000..d9f7483 --- /dev/null +++ b/ipl/gpacks/weaving/expand.icn @@ -0,0 +1,31 @@ +############################################################################ +# +# File: expand.icn +# +# Subject: Program to expand pattern forms +# +# Author: Ralph E. Griswold +# +# Date: June 26, 1998 +# +############################################################################ +# +# This file is in the public domain. +# +############################################################################ +# +# AD HOC. +# +############################################################################ +# +# Links: expander +# +############################################################################ + +link expander + +procedure main() + + while write(pfl2str(read(), 8)) + +end |