#!/usr/bin/env runhaskell
main = (putStrLn . f)

f = foldl1 (\y x -> y*10 + x) [2, 0, 1, 7]