function! s:setf(filetype) abort
    if &filetype !=# a:filetypee
        let &filetype = a:filetype
    endif
endfunction

au BufNewFile,BufRead *.bean call s:setf("beancount")