clear
;R}hGCAXalias̃eXg5
echo $_FILE

unalias -all
undef -all

#if ( ) ;comment

define wide 	-w -n
define s1	111 222

alias p1	{print #1= #1;\
		print #2= #2;\
		print #3= #3;\
		print #4= #4;	\
		print #5= #5;}
alias p2	{print #*= #*;}
alias p3	{print #1= #1;	\
		print #2*= #2*; \
		}
alias e3	{print #1= #1;	\
		print #2*= #2*; \
		}
alias cdir	{cd #*}
alias d		{define #1 #2*}
alias a		{alias #1 #2}

#endif

alias p3	{print #1= #1;	\
		print #2*= #2*; \
		};;;

define name	p3
define name1	p31
define block	{print #1= #1;	\
		print #2*= #2*; \
		};;;

unalias p3
alias $name 	$block

define p4	$name1 {print #1= #1;	\
		print #2*= #2*; \
		};;;
define p5	$name $block;;;

alias $p4

#exit
p1 123 456 $123  @987 ( " abcd" )
p1 123 456 @987 ( " abcd" )  $123 
p1 123 456 "@987"  $123 abc
p1 123 456 "@987"  '$123' abc
p1 $123  @987
p1 @987 $123  
p1 -b 11 22 33 $123  @987
p1 123 -Da="abc \n" 
p1 123 -Da="abc \n" 456  -w -s
p1 \$s1=$s1 
p1 123 456 ($123 +  @987)
p1 123 456 -b 11 22 ($123 +  @987)
p1 $123  @987 ( " abcd" ) kel ghj
p1 @987 ( " abcd" ) $123   kel ghj
p1 e:\ "e:\\"
p1 aaa {cd; fill "abc";}
p1 123 456 -b $123 $987 "" 987 @987 ( " abcd" ) "abcd"
p3 123 456 -b $123 $987 "" 987 @987 ( " abcd" ) "abcd"
d test 456 -b $123 $987 "" 987 @987 ( " abcd" ) "abcd"




#exit
z5 123 456 $123 @987 ( " abcd" )
z5 123 456 -b $123 $987 987 @987 ( " abcd" ) "abcd"
z5 123 456 -b $123 $987 "" 987 @987 ( " abcd" ) "abcd"
z5 123 456 -b $123 $987 -a 987 @987 ( " abcd" ) "abcd"
z5 123 456 -Dss=" abcd" 567

