module Main where main = do s <- getContents putStrLn $ html $ s html :: String -> String html s = unlines [ "", " ", " ", " ", " SALDOs felrapport", " ", " ", "

", " \"SALDO\"", "

", "", "
",
	  s,
	  "
", "
", " ", "" ]