Fortgiving dinner

Happy Thanksgiving to all those celebrating!

program fortgiving

    character, parameter :: NL = new_line('')
    character(*), parameter :: turkey = &
             ' '//NL//&
             ''//NL//&
             '                             ,+*^^*+___+++_'//NL//&
             '                       ,*^^^^              )'//NL//&
             '                    _+*                     ^**+_'//NL//&
             '                  +^       _ _++*+_+++_,         )'//NL//&
             '      _+^^*+_    (     ,+*^ ^          \+_        )'//NL//&
             '     {       )  (    ,(    ,_+--+--,      ^)      ^\'//NL//&
             '    { (@)    } f   ,(  ,+-^ __*_*_  ^^\_   ^\       )'//NL//&
             '   {:;-/    (_+*-+^^^^^+*+*<_ _++_)_    )    )      /'//NL//&
             '  ( /  (    (        ,___    ^*+_+* )   <    <      \'//NL//&
             '   U _/     )    *--<  ) ^\-----++__)   )    )       )'//NL//&
             '    (      )  _(^)^^))  )  )\^^^^^))^*+/    /       /'//NL//&
             '  (      /  (_))_^)) )  )  ))^^^^^))^^^)__/     +^^'//NL//&
             ' (     ,/    (^))^))  )  ) ))^^^^^^^))^^)       _)'//NL//&
             '  *+__+*       (_))^)  ) ) ))^^^^^^))^^^^^)____*^'//NL//&
             '  \             \_)^)_)) ))^^^^^^^^^^))^^^^)'//NL//&
             '   (_             ^\__^^^^^^^^^^^^))^^^^^^^)'//NL//&
             '     ^\___            ^\__^^^^^^))^^^^^^^^)\\'//NL//&
             '          ^^^^^\uuu/^^\uuu/^^^^\^\^\^\^\^\^\^\'//NL//&
             '             ___) >____) >___   ^\_\_\_\_\_\_\)'//NL//&
             '            ^^^//\\_^^//\\_^       ^(\_\_\_\) '//NL//&
             '              ^^^ ^^ ^^^ ^^ '//NL//NL//NL

    print *, turkey

end program fortgiving
15 Likes

+1

Happy Fortgiving to you and also the full spirit behind it in the US holiday!

3 Likes