add function list->atom which convert one-dimensional list to atom