@relayw=[ON]
@pasted=[say]
alias paste
{
	if ([$0])
	{
		//paste $*
	}{
		cpaste
	}
}
alias cpaste (void)
{
	if (![$0]) {@relayw = [OFF]
	for (@xx=0, xx<numitems(_foo), @xx++)
	{echo $cparse(%K[%W$[2]xx%K]%w $getitem(_foo $xx))}}
	input " Enter which line(s) to paste: " {
	^$pasted $getitem(_foo $0);^$pasted $getitem(_foo $1);^$pasted $getitem(_foo $2);
	^$pasted $getitem(_foo $3);^$pasted $getitem(_foo $4);^$pasted $getitem(_foo $5);
	^$pasted $getitem(_foo $6);^$pasted $getitem(_foo $7);@relayw=[ON]}
}
on #^window 150 "*" if (relayw==[ON]) if ([$0]==winnum()) {
	if (numitems(_foo)>=winsize()) {@delitem(_foo 0)}
	@setitem(_foo $numitems(_foo) $1-)
}