doctest.hsをちょっとしゅうせい