RosettaCodeData/Task/Substring-Top-and-tail/Haskell/substring-top-and-tail-3.hs

main :: IO ()
main = mapM_ print $ [tail, init, init . tail] <*> ["knights"]