; Script: Alternate Hugger Script
; Name:  Paul Blair
; Date: September 9, 1996
; Description: Alternate hugging script (type hug# name where # is the
;              number of pairs of curly brackets you want to use and name 
;              is the name you want to put inside curly brackets)
         

{
                "$1" GREPSUB numtxt =
                numtxt ATOI number =
                "$2"  GREPSUB name =
                0 x =
                0 y =
                "" string =
                { x ++ "\}" string & string = } { x number < } WHILE
                name string & string =
                { y ++ "\{" string & string = } { y number < } WHILE
                string SAY
                "" CHATSTR =
                } CHATSTR "^hug(.*) (.*)" GREPSTR IF