main = putStrLn $ show $ weekday 1 1 1
 
weekday :: Int -> Int -> Int -> String
weekday jahr monat tag =
  let name = (mod ( tag + x + (div ( 31 * m )  12 )) 7 )
  in
    case name of
    0 -> "Sonntag"
    1 -> "Montag"
    2 -> "Dienstag" 
    3 -> "Mittwoch"
    4 -> "Donnerstag"
    5 -> "Freitag"
    6 -> "Samstag"
  where                        
    y = jahr - ( div ( 14 - monat )  12 )   
    x = y + ( div y 4 ) - ( div y 100 ) + ( div y 400 )
    m = monat + (12 * ( div ( 14 - monat ) 12 )) - 2 
 

bWFpbiA9IHB1dFN0ckxuICQgc2hvdyAkIHdlZWtkYXkgMSAxIDEKCndlZWtkYXkgOjogSW50IC0+IEludCAtPiBJbnQgLT4gU3RyaW5nCndlZWtkYXkgamFociBtb25hdCB0YWcgPQogIGxldCBuYW1lID0gKG1vZCAoIHRhZyArIHggKyAoZGl2ICggMzEgKiBtICkgIDEyICkpIDcgKQogIGluCiAgICBjYXNlIG5hbWUgb2YKICAgIDAgLT4gIlNvbm50YWciCiAgICAxIC0+ICJNb250YWciCiAgICAyIC0+ICJEaWVuc3RhZyIgCiAgICAzIC0+ICJNaXR0d29jaCIKICAgIDQgLT4gIkRvbm5lcnN0YWciCiAgICA1IC0+ICJGcmVpdGFnIgogICAgNiAtPiAiU2Ftc3RhZyIKICB3aGVyZSAgICAgICAgICAgICAgICAgICAgICAgIAogICAgeSA9IGphaHIgLSAoIGRpdiAoIDE0IC0gbW9uYXQgKSAgMTIgKSAgIAogICAgeCA9IHkgKyAoIGRpdiB5IDQgKSAtICggZGl2IHkgMTAwICkgKyAoIGRpdiB5IDQwMCApCiAgICBtID0gbW9uYXQgKyAoMTIgKiAoIGRpdiAoIDE0IC0gbW9uYXQgKSAxMiApKSAtIDIgCg==