From 9045bfe6a4b24497b5c86d928778250b6a13415b Mon Sep 17 00:00:00 2001
From: Ole Tange <ole@tange.dk>
Date: Thu, 10 Jul 2014 22:13:47 +0200
Subject: [PATCH] upsidedown: < > now treated as parenthesis.

---
 upsidedown/upsidedown | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/upsidedown/upsidedown b/upsidedown/upsidedown
index 811600a..5316b15 100755
--- a/upsidedown/upsidedown
+++ b/upsidedown/upsidedown
@@ -159,10 +159,10 @@ B<tr>(1)
 use utf8;
 
 my $down = ' @{}'.
-    q{ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz.,';0123456789?!"&()[]/\_‾=-};
+    q{ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz.,';0123456789?!"&()[]/\_‾=-<>};
 my @up = (" ",qw(@ } {),
     qw{∀ q Ɔ p Ǝ Ⅎ ⅁ H I ſ ʞ ⅂ W N O Ԁ Ό ᴚ S ⊥ ∩ Ʌ M X ⅄ Z ɐ q ɔ p ǝ ɟ 6 ɥ ı ſ ʞ l},
-       qw{ɯ u o d b ɹ s ʇ n ʌ ʍ x ʎ z ˙ ' , ؛ 0 Ɩ 2 Ɛ ᔭ 5 9 Ɫ 8 6 ¿ ¡ „ ⅋ ) ( ] [ / \ ‾ _ = -});
+       qw{ɯ u o d b ɹ s ʇ n ʌ ʍ x ʎ z ˙ ' , ؛ 0 Ɩ 2 Ɛ ᔭ 5 9 Ɫ 8 6 ¿ ¡ „ ⅋ ) ( ] [ / \ ‾ _ = - > <});
 
 my %up;
 my @down = split//,$down;