Change function mapcar to map