fn cd {
	cdnextlastdir = `{pwd}
	{
		if(~ $#* 0)
			builtin cd
		if not if(~ $1 -)
				builtin cd $cdlastdir
			if not
				builtin cd $1
	} && cdlastdir = $cdnextlastdir
}