twitter.yacq

(assembly "LinqToTwitter")
(load "cts:System.Diagnostics")
(import "cts:LinqToTwitter" "T")

T.PinAuthorizer.(new).(with
    Credentials T.InMemoryCredentials.(new)
    GetPin (\ [] (input))
    GoToTwitterAuthorization (\ [u:String] ($ Process.(Start u) ()))
).(let a
    (= a.OAuthTwitter.OAuthConsumerKey "zap")
    (= a.OAuthTwitter.OAuthConsumerSecret "zap")
    a.(Authorize)
    T.TwitterContext.(new a).(let c
        c.(UpdateStatus "バルス！")
    )
)