From d158f27ef82674a8f26e90a5ddc47c2385d50024 Mon Sep 17 00:00:00 2001
From: Kazu Yamamoto <kazu@iij.ad.jp>
Date: Sat, 20 Dec 2014 14:50:12 +0900
Subject: [PATCH] an example.

---
 examples.md | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

diff --git a/examples.md b/examples.md
index 369d6c68..1a7ead1b 100644
--- a/examples.md
+++ b/examples.md
@@ -96,7 +96,17 @@ FROM account
 ORDER BY open_emp_id, product_cd;
 {% endhighlight %}
 
-HRR: TBD
+HRR:
+
+{% highlight haskell %}
+account_3_7 :: Relation () (Maybe Int64, String)
+account_3_7 = relation $ do
+  a <- query account
+  let proj = (,) |$| a ! Account.openEmpId'
+                 |*| a ! Account.productCd'
+  asc proj
+  return proj
+{% endhighlight %}
 
 #### Using the is null operator and the date literal