Write a Scheme procedure that takes a list as a parameter and returns a list identical to the parameter except the last three elements has been deleted. For example,(new-list '(a b c d e)) returns '(a b) ; (new-list '(a b (c d) e)) returns '(a).