{-# LANGUAGE NamedFieldPuns #-} module Main where main = putStr "foo"