task :: Task
task = Prelude.map (\s -> s `BLC.append` (BLC.pack " - ") `BLC.append` s)
task :: Task
task = Prelude.map (\s -> s `BLC.append` (BLC.pack " - ") `BLC.append` s)
task = Prelude.map (\s -> s `BLC.append` (BLC.pack " - ") `BLC.append` s)