type-of-html-1.4.0.1: bench/Reduction.hs

{-# OPTIONS_GHC -fno-warn-missing-signatures -freduction-depth=29 -fsimpl-tick-factor=42 #-}
module Main where

import Html
import qualified Html.Attribute as A

main = print p9

p1 = div_A (A.id_ 'a') 'b'

p2 = div_ (p1 # p1)

p3 = div_ (p2 # p2)

p4 = div_ (p3 # p3)

p5 = div_ (p4 # p4)

p6 = div_ (p5 # p5)

p7 = div_ (p6 # p6)

p8 = div_ (p7 # p7)

p9 = div_ (p8 # p8)