Arnav Sastry arknave

## bulba.hs
import qualified Data.ByteString.Char8 as BS
import Data.Char

oneString :: String -> Int -> String
oneString s n = map (\x -> chr $ (ord x) + n) s

allStrings :: String -> [BS.ByteString]
allStrings s = map (BS.pack . oneString s) [-65..165]

showByteString :: Char -> Char
	import qualified Data.ByteString.Char8 as BS
	import Data.Char

	oneString :: String -> Int -> String
	oneString s n = map (\x -> chr $ (ord x) + n) s

	allStrings :: String -> [BS.ByteString]
	allStrings s = map (BS.pack . oneString s) [-65..165]

	showByteString :: Char -> Char