:l T789.hs
print $ length table