length1 l = go l 0
where go [] acc = acc
go (x:xs) acc = go xs (acc+1)
bGVuZ3RoMSA6OiBbYV0gLT4gSW50Cmxlbmd0aDEgbCA9IGdvIGwgMAogIHdoZXJlIGdvIFtdICAgICBhY2MgPSBhY2MKICAgICAgICBnbyAoeDp4cykgYWNjID0gZ28geHMgKGFjYysxKQogICAgICAgIAogICAgICAgIAptYWluID0gbGV0IHggPSBwcm9kdWN0IFsxLi5dIGluIHByaW50IChsZW5ndGgxIFsxLCB4XSk=