Haskell code for okayama-u