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