#!/usr/bin/env runhaskell
main = putStrLn ( 
  show (foldl1 (\y x -> y*10 + x) [2, 0, 1, 7])
 )