Coarse-grained simulation of cellulose Iβ with application to long fibrils