1{-# LANGUAGE UnicodeSyntax #-} 2 3arrowTest ::String -> String 4arrowTest input = 5 case input of 6 "hello" ->"world" 7 "world" ->"hello" 8 otherwise ->"unknow" 9 10