import Ehs
import Control.Monad
import Data.Time

[ehs|<% time <- getCurrentTime %>
The time is now <%= time %>
<% for x <- [1..15] %>
  <% if x `mod` 15 == 0 %>
Fizzbuzz
  <%| x `mod` 3 == 0 %>
Fizz
  <%| x `mod` 5 == 0 %>
Buzz
  <%| otherwise %>
<%= x :: Int %>
  <% end %>
<% end %>
|]