- replacing sapply() by vapply()
- indentation and less return()s in findbars() etc