#import <stdio.h>
#import <string.h>
int main() {
	char s[200002];
	scanf("%s",s);
	int ans = strlen(s);
	int cs=0;
	for(int i=0;i<strlen(s);i++){
		if(s[i]=='S'){
			cs++;
		}else{
			if(cs>0){
				cs--;
				ans-=2;
			}
		}
	}
	printf("%d\n",ans);
}

; ModuleID = '/data/TheStack_IR/OJ_Samples/Collated/ObjectiveC/Source_899/source.m'
source_filename = "/data/TheStack_IR/OJ_Samples/Collated/ObjectiveC/Source_899/source.m"
target datalayout = "e-m:e-p270:32:32-p271:32:32-p272:64:64-i64:64-f80:128-n8:16:32:64-S128"
target triple = "x86_64-pc-linux-gnu"

@.str = private unnamed_addr constant [3 x i8] c"%s\00", align 1
@.str.1 = private unnamed_addr constant [4 x i8] c"%d\0A\00", align 1

; Function Attrs: nofree nounwind uwtable
define dso_local i32 @main() local_unnamed_addr #0 {
entry:
  %s = alloca [200002 x i8], align 16
  call void @llvm.lifetime.start.p0(i64 200002, ptr nonnull %s) #4
  %call = call i32 (ptr, ...) @__isoc99_scanf(ptr noundef nonnull @.str, ptr noundef nonnull %s)
  %call2 = call i64 @strlen(ptr noundef nonnull dereferenceable(1) %s) #5
  %cmp21.not = icmp eq i64 %call2, 0
  br i1 %cmp21.not, label %for.cond.cleanup, label %for.body.preheader

for.body.preheader:                               ; preds = %entry
  %conv = trunc i64 %call2 to i32
  %xtraiter = and i64 %call2, 1
  %0 = icmp eq i64 %call2, 1
  br i1 %0, label %for.cond.cleanup.loopexit.unr-lcssa, label %for.body.preheader.new

for.body.preheader.new:                           ; preds = %for.body.preheader
  %unroll_iter = and i64 %call2, -2
  br label %for.body

for.cond.cleanup.loopexit.unr-lcssa.loopexit:     ; preds = %for.inc.1
  %1 = icmp sgt i32 %cs.1.1, 0
  br label %for.cond.cleanup.loopexit.unr-lcssa

for.cond.cleanup.loopexit.unr-lcssa:              ; preds = %for.cond.cleanup.loopexit.unr-lcssa.loopexit, %for.body.preheader
  %ans.1.lcssa.ph = phi i32 [ undef, %for.body.preheader ], [ %ans.1.1, %for.cond.cleanup.loopexit.unr-lcssa.loopexit ]
  %indvars.iv.unr = phi i64 [ 0, %for.body.preheader ], [ %indvars.iv.next.1, %for.cond.cleanup.loopexit.unr-lcssa.loopexit ]
  %cs.023.unr = phi i1 [ false, %for.body.preheader ], [ %1, %for.cond.cleanup.loopexit.unr-lcssa.loopexit ]
  %ans.022.unr = phi i32 [ %conv, %for.body.preheader ], [ %ans.1.1, %for.cond.cleanup.loopexit.unr-lcssa.loopexit ]
  %lcmp.mod.not = icmp eq i64 %xtraiter, 0
  br i1 %lcmp.mod.not, label %for.cond.cleanup, label %for.body.epil

for.body.epil:                                    ; preds = %for.cond.cleanup.loopexit.unr-lcssa
  %arrayidx.epil = getelementptr inbounds [200002 x i8], ptr %s, i64 0, i64 %indvars.iv.unr
  %2 = load i8, ptr %arrayidx.epil, align 1, !tbaa !5
  %cmp8.epil = icmp eq i8 %2, 83
  br i1 %cmp8.epil, label %for.cond.cleanup, label %if.else.epil

if.else.epil:                                     ; preds = %for.body.epil
  %sub.epil = add nsw i32 %ans.022.unr, -2
  %spec.select = select i1 %cs.023.unr, i32 %sub.epil, i32 %ans.022.unr
  br label %for.cond.cleanup

for.cond.cleanup:                                 ; preds = %if.else.epil, %for.cond.cleanup.loopexit.unr-lcssa, %for.body.epil, %entry
  %ans.0.lcssa = phi i32 [ 0, %entry ], [ %ans.1.lcssa.ph, %for.cond.cleanup.loopexit.unr-lcssa ], [ %spec.select, %if.else.epil ], [ %ans.022.unr, %for.body.epil ]
  %call15 = call i32 (ptr, ...) @printf(ptr noundef nonnull dereferenceable(1) @.str.1, i32 noundef %ans.0.lcssa)
  call void @llvm.lifetime.end.p0(i64 200002, ptr nonnull %s) #4
  ret i32 0

for.body:                                         ; preds = %for.inc.1, %for.body.preheader.new
  %indvars.iv = phi i64 [ 0, %for.body.preheader.new ], [ %indvars.iv.next.1, %for.inc.1 ]
  %cs.023 = phi i32 [ 0, %for.body.preheader.new ], [ %cs.1.1, %for.inc.1 ]
  %ans.022 = phi i32 [ %conv, %for.body.preheader.new ], [ %ans.1.1, %for.inc.1 ]
  %niter = phi i64 [ 0, %for.body.preheader.new ], [ %niter.next.1, %for.inc.1 ]
  %arrayidx = getelementptr inbounds [200002 x i8], ptr %s, i64 0, i64 %indvars.iv
  %3 = load i8, ptr %arrayidx, align 2, !tbaa !5
  %cmp8 = icmp eq i8 %3, 83
  br i1 %cmp8, label %if.then, label %if.else

if.then:                                          ; preds = %for.body
  %inc = add nsw i32 %cs.023, 1
  br label %for.inc

if.else:                                          ; preds = %for.body
  %cmp10 = icmp sgt i32 %cs.023, 0
  br i1 %cmp10, label %if.then12, label %for.inc

if.then12:                                        ; preds = %if.else
  %dec = add nsw i32 %cs.023, -1
  %sub = add nsw i32 %ans.022, -2
  br label %for.inc

for.inc:                                          ; preds = %if.then, %if.then12, %if.else
  %ans.1 = phi i32 [ %ans.022, %if.then ], [ %sub, %if.then12 ], [ %ans.022, %if.else ]
  %cs.1 = phi i32 [ %inc, %if.then ], [ %dec, %if.then12 ], [ %cs.023, %if.else ]
  %indvars.iv.next = or i64 %indvars.iv, 1
  %arrayidx.1 = getelementptr inbounds [200002 x i8], ptr %s, i64 0, i64 %indvars.iv.next
  %4 = load i8, ptr %arrayidx.1, align 1, !tbaa !5
  %cmp8.1 = icmp eq i8 %4, 83
  br i1 %cmp8.1, label %if.then.1, label %if.else.1

if.else.1:                                        ; preds = %for.inc
  %cmp10.1 = icmp sgt i32 %cs.1, 0
  br i1 %cmp10.1, label %if.then12.1, label %for.inc.1

if.then12.1:                                      ; preds = %if.else.1
  %dec.1 = add nsw i32 %cs.1, -1
  %sub.1 = add nsw i32 %ans.1, -2
  br label %for.inc.1

if.then.1:                                        ; preds = %for.inc
  %inc.1 = add nsw i32 %cs.1, 1
  br label %for.inc.1

for.inc.1:                                        ; preds = %if.then.1, %if.then12.1, %if.else.1
  %ans.1.1 = phi i32 [ %ans.1, %if.then.1 ], [ %sub.1, %if.then12.1 ], [ %ans.1, %if.else.1 ]
  %cs.1.1 = phi i32 [ %inc.1, %if.then.1 ], [ %dec.1, %if.then12.1 ], [ %cs.1, %if.else.1 ]
  %indvars.iv.next.1 = add nuw nsw i64 %indvars.iv, 2
  %niter.next.1 = add i64 %niter, 2
  %niter.ncmp.1 = icmp eq i64 %niter.next.1, %unroll_iter
  br i1 %niter.ncmp.1, label %for.cond.cleanup.loopexit.unr-lcssa.loopexit, label %for.body
}

; Function Attrs: mustprogress nocallback nofree nosync nounwind willreturn memory(argmem: readwrite)
declare void @llvm.lifetime.start.p0(i64 immarg, ptr nocapture) #1

; Function Attrs: nofree nounwind
declare noundef i32 @__isoc99_scanf(ptr nocapture noundef readonly, ...) local_unnamed_addr #2

; Function Attrs: mustprogress nofree nounwind willreturn memory(argmem: read)
declare i64 @strlen(ptr nocapture noundef) local_unnamed_addr #3

; Function Attrs: mustprogress nocallback nofree nosync nounwind willreturn memory(argmem: readwrite)
declare void @llvm.lifetime.end.p0(i64 immarg, ptr nocapture) #1

; Function Attrs: nofree nounwind
declare noundef i32 @printf(ptr nocapture noundef readonly, ...) local_unnamed_addr #2

attributes #0 = { nofree nounwind uwtable "min-legal-vector-width"="0" "no-trapping-math"="true" "stack-protector-buffer-size"="8" "target-cpu"="x86-64" "target-features"="+cmov,+cx8,+fxsr,+mmx,+sse,+sse2,+x87" "tune-cpu"="generic" }
attributes #1 = { mustprogress nocallback nofree nosync nounwind willreturn memory(argmem: readwrite) }
attributes #2 = { nofree nounwind "no-trapping-math"="true" "stack-protector-buffer-size"="8" "target-cpu"="x86-64" "target-features"="+cmov,+cx8,+fxsr,+mmx,+sse,+sse2,+x87" "tune-cpu"="generic" }
attributes #3 = { mustprogress nofree nounwind willreturn memory(argmem: read) "no-trapping-math"="true" "stack-protector-buffer-size"="8" "target-cpu"="x86-64" "target-features"="+cmov,+cx8,+fxsr,+mmx,+sse,+sse2,+x87" "tune-cpu"="generic" }
attributes #4 = { nounwind }
attributes #5 = { nounwind willreturn memory(read) }

!llvm.linker.options = !{}
!llvm.module.flags = !{!0, !1, !2, !3}
!llvm.ident = !{!4}

!0 = !{i32 1, !"wchar_size", i32 4}
!1 = !{i32 8, !"PIC Level", i32 2}
!2 = !{i32 7, !"PIE Level", i32 2}
!3 = !{i32 7, !"uwtable", i32 2}
!4 = !{!"Ubuntu clang version 18.0.0 (++20231007042255+8abb2ace888b-1~exp1~20231007042414.1230)"}
!5 = !{!6, !6, i64 0}
!6 = !{!"omnipotent char", !7, i64 0}
!7 = !{!"Simple C/C++ TBAA"}
